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Marine Engineering on Hay 19, 1967, in vartial fulfillment 
of the requirenents for the Haster of Science deszree in 
Naval Architecture and Marine Engineering and the Professional 
degree, Naval mngineer. a . 


The attractive DOSSELDILIty Of Minami Zine ordered. 
handling, and warehousing problems by enploying uniform ”lon- 
pitudinal scantlines and constant plating thicknesses through 
out the midshin section Hed to the decision vorcare motu s 
investigation | of such a design methodology. The design tech- 

‘ nique vinved to be feasibic, but less economical than con- 
ventivnal techniques of midship section design. 

MeCcOnpicer. LOOmmor the SyStenacic variation of longi- 
tudinal intervals has been Geveloped and is now ady to be 
apolied to midship section design with varying aa 
materials and different plating thicknesses and lonsitudinal 
scantlings. ; 
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i. IJSTRODUCTION 


"The quest for least weight, lowest cost, optimal snip 
structures has long been hampered by the lack of reliable 
quantitative data in adequate amount. And the problem has, 
So far, obroven only partially susceptible to closec form 
BO UCGiOlesslNemo real sense, therefonemsrts 1umecce possible 
Eo vielecn the relavive merits of new materials of construction, 
momeexanule, OF Variations of frame spacing, divrerenc cou 
moenaulons of framine systeus or alveravions of principal 
dimensions (should they too be of interest). " [67] (Zaphasis 
added) 

igs mMidship section desien of Tonsatudinaily 2 ated si 
shins has lone been carried Out om eke baci s ouvoncorcuame 
spacing of the longitudinal structural stiffeners, wit 
varying stresses and loadings being accounted LOD Dy (eae 
variation of olating thicknesses and longitudinal scantlings. 

This conventional procedure nas Eee aeees in the de- 
velopment of designs of adequate strengtn, but the goal of 
the optimun least weight, lowest cost snip structural design 
has proved to be an elusive one. 

Current design techniques, although effective, add to 
Bre GOSt Of ship Sone eran by the price penalties involved 


in the procurement of a diversity of plates and shapes. 


x 





similarly, parts handling and inventory controi is complicated 
and rendered more difficult and empessiy2 ie oss geuoal od. 

and deficiencies resultins from conventional meds ec cenod 
design procedures suggested the novel anproach whicn is the 
subject of this investigation. 

Fundanentally, in an evaluation of an extreme variation 
from current procedures, this modified design methodology 
generates a design with a uniform plating thickness through- 
out, with a uniform longitudinal scantling (exclusive of the 
keel) similarly selected. Variations in loading are conpen- 
sated for by different intervals between longitudinals through- 
SUG one midShip section. 

In order to permit a reasonable inference as to the 
relative merits of this modified idesisn methodology, the 
FORREST SHERMAH (DD-931) class destroyer midship section nas 


been taken as a model for comparative purposes. 





ii. PROCSDURS 


} 


For purposes of consistency with the techniques used in 

Pic Omdtatiat design of the SCARE oe tne desi enepae— 
Pouunecect tcLeaced in [2], have been used throughout this in- 
estigation, modified as necessary. The same basic stress 
eriteria have been used, wlth the maxituum primary compressive 
stresses on DD-931 specified as design limitine values. As 
for the FORREST SHERMAN, high tensile steel (HTS) has been 
used throughout the midshipv section. 


The calculations required for this investigation have 


tty 


been carried out almost exclusively by a series of computer 
programs and subroutines, explained in detail in the Appendix. 

Input data, including the plating molded offsets, are 
Generated for eventual use in the maim desten presram,s autioce- oa 
and the main costing progran, COSTDATA. Existing plates and 
scantlings were used throughout the investigation in order to 
permit a realistic evaluation of costs and structural char- 
Beveristics. Actual costing criteria in user tne Boston 
Naval Snivyard were emoloyved in conjunction with current 
Pederal varts costing information. 

Once the input information nas been determined, the de- 
talled design process is carried out. First, given tne trans- 


verse frame snacing and the mininum tolerable longitudinal 
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26 Che aes eee UClll aoa 
and the resultant nermissiple Llonzitudinal separation com- 
puted. 

This permissible separation is applied Susuies<cei, 
aera Dine Vocab ae the Longitudinal adjacent to the kecl. The 
permissible span to the next Longitudinal and tne reauired 
longitudinal are then determined. This computation is re- 
peated until the deck-shell intersection is reached. At 
this time, the spacings are reduced if necessary te assure 
the existence of at least the minimum permissible spacing 
between tne last shell lonsitudinal and the deck edge. 

The deck longitudinals are located in a like manner. 
The arrangement is required to be symmetrical about the 
centerline, with either a longitudinal at the centerline 


’ 


Bemcne centerline exactly at nid-span between Toneivudimame. 


Meenecessary, the interval between the ceck longitudinals 
io reduced. 

Aiter all the midsnip. section loneitudimails fave been 
located, the required scantlings at each location are cal- 
culated. The heaviest of these is then selected for use 
throughout the midship section. 

With the plating thickness selected, lonsitudinals 
located and scantlings determined, the overall midshin 
T-clton Characteristics are calculaced Wy he mania pr 
mary compressive stresses at tne keel and deck centerline 


o 


are determined, using the hull sirder bending moments that 








NK 


were calculated for the FORNLST Sika. 

Should eitner of the calculated stresses exceed the 
comparable values actually existing on tree De=-93) as pull 
the plating thickness is increased and the entire cycle is 
repeated with larger longitudinal spacings inevitably re- 


Since Lr une stre 
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ses are acceptable, the calculation is 
terminated. 

The costing procedure evaluates the expense, per foot 
MeMoul, Gl DUilding the midship section. Sco om senementeges 
are based on an arbitrary cost of $7.50 ver man-hour (KH 
of work. This charge includes shipyard overhead expenses. 
Government price data is used to determine the acquisition 
Besos ©Or structural materials. 

The weight and cost of the modified design is then 
commared with similarly-calculated values for the DD-931 as 


muti t. 
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Iwo basic series of midship section desien calculations 
were carried out by main program RUHSCCRE. The first of 
these computed cesigns with the mininum acceotable interval 
between longitudinals fixed at 1.667 feet, while the trans- 
mersesmrane Spacing varied from 6 To) Gutcmlomnce namic 
second series calculated designs for a transverse frame 


spacing fixed at & feet with the interval between lonsi- 


i 


surprisingly, the midship section designs develonved 


fe umecenscant plating thicknesscse a 


SS 


d uniform longitudinal 
scantlings proved to be consistently heavier and, for less 
apparent reasons, which are discussed in the following 
section, more expensive to build. } ~ 
The results of the calculations for different trans- 
verse frame intervals are presented in Table I, as well as 
Similar data for the FORR&ST SderkbiAn as built. Ficure I 
shows a schematic plan of the DD-931 midshiv section as built, 
while Figure II shows a schematic for the midship section 
design resulting from a transverse frame spacing of 8 feet 
Pau Mini aun specified Loncitudinal @mtervaleon Moo, necur 


Note the heavy plating, neavy longitudinals, and great in- 
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tervals between longitudinals in She new micshin section 
design. Table I also provides detailed cost data for the 
three new desicns as well as the original DD-931, using 
identical reference data for all four cases. 

Detailed information as to the location of longicudinals 
and the intervals between longitudinals is provided in Table 
if, which delineates the designs develoved by the first series 
SeecOugicavions. 

The second series of computer runs revealed this desicen 
methodology to be very insensitive to the specification of 
minimum tolerable intervals between longitudinals, with the 
exception of the minor effects caused by possible adjustments 
moreune Geck-shell intersection of thesdeck centveamimae scr 
teria for longitudinal intervals. As a consequence, the 
Megiens .0r all intents and purposes were identical regariq 


less of the specified minimum intervals between longitudinals. 








TABLE I 


FIDSHIP SSCTiOW Desieis 
WEIGHT AND COST SULTIARISS 


DESIGN: New Study New Study New Stu@y  DD-931 
| (As Built) 


FRM (Ft.) 6.00 8.00 10.00 8.00 
TH. (In.) Gn7> 0.75 0.75 (Varies) 


WEIGHTS (Pounds per foot hull lensth) 








TOTAL: 4-7 36.6 716.7 L778 £0 5G 0 
Plating 3854.0 3854.0 385460 272.5 
Longitnis. 505.3 505.3 5 509.1 
Tr. Framing 377.2 357.4 B55 357.4 

eeols (Per foot hull length) 

TOTAL: S668.01 8 171.78 2 TG ee 
Plating 464.97 4.66.61 L6u..97 336.98 
Longitnis. 66.30 66. 30 TOee0 70% 50 
Keel 27.56 27.56 27.56 TAG 
Tr. Framing 404.96 COs 2 242.98 SOem 7a 
Pl. Welding 298.64 Pol 28 298.64 Sonor 
Pl. Cutting 2,02 2G 202 0.00" 
Pl. Rolling 23.40 23.40: 23nS nO eaie 
L. Welding 113.50 113.50 eons 142.50 
mi. Cuttine 17.85 V7eo5 18.90 28.50 


Rigging 148.80 148.80 148.80 148.80 
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THE ORIGINAL DD-931 MIDSHIP SECTION DgesIcn [5] 
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FIGURe ll 
MODIFIED DD-931 MIDSHIP SECTION DESIGN 








TABLE IT 
MIDSHIP SECTION Dist e 
SLRUCTURAL DesCuge rer 
rame Snacins (Ft.) 6.00 S00 10.00 
Bilacins Thickness (In.) O75) Ons Oe 5) 
STRUCTURAL CHARACTSRISTICS 
Keel Stress (Tons/In.5) or 73 73 
Deck Stress (Tons/In.<) 4.5 u.59 ED 
Moment gf Ingrtia 142,120. Ta eaeey 143,819 
Gin. S Ft.) 
N. A. above Base Line 14.26 14.25 14.46 
Gra) 
Keel Longitudinal Diet so5i ae OO = mates 
Other Longitudinals lee sm 7" x 4Of* 1-7 


INTERVALS BETYSEN LONGITUDINALS* (Feet) ' 


u.717 1. 77 Eel 7 
4. 888 4.852 852 
O57 Fe eo 3 ILLES 
5.837 5.724 5afet 
7295 6.935 6.93% 
Deck-Shell Intersection 7.931 8.516 Se a7 
6.822 On 7 6.500 
5 7LI** 6.514 6.350 
0.83 3%** 





athe first interval begins at the keel. 
A longitudinal lies on the decx centerline. 
HK KT - mee fad a1 Gee a - 
the decix centerline lies midway vetvween tyvo Llonsitu- 
dinals. 
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PLATE 
PHT CKIESS 


inches 
0.28125 
0.3125 
0.34375 
O53 79 
0.4375 
0.500 
0.625 


O.750 


Kar 


ro 
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TYPICAL DESIG SUMMARY 


TOTAL KEEL IC 
WEIGHT STRESS LR eon 


Pounds Tons/Ine In.- Ft. 


2655.9 13.47 76,183 54 
puresses are excessive, design 
ARCS) shea sis Coe 
etresses are excessive, design 
2781.9 og 79,760 2 
stresses are excessive, design 
2898.4 12.43 83,690 39 
Bemes oO Sea ne sx CCSG 16 ado cuaa 
3131.4 11.45 91,387 33 


Stresses are excessive, design 


3393.8 One 2 100,012 29 
stresses are excessive, design 


3918.8 9.03 So ae 


Stresses are excessive, design 


4716.7 73 142,105 17 


i Olt LOHNGLITUDIENALS 


SCAUTELEG 


8x5 .4x20 


repeated. 


NO .Onen 


repeated, 


1G@iczen 
repeated. 


Oxy sore u 
reveated. 


10x5.8x21 
reveated. 


M@rasesto 
rPepe2aced. 


Lex 4% x16.5 
reoeated. 


16x 7 x0 


Design acceptable, calculations terminated. 


Main program RUINSCORE computation for transverse 


frame svacing of 8.0 feet, svecified minimun 
longitudinal interval of 1.667 feet. 





IV. CONCLUSIONS AND RECOMMENDATIONS 


The midship section design of a longitucinally-framed 
warship with uniforn longitudinal scantlings and constant 
plating tnicknesses nas been shown to be feasible. 

Table I on page 8 vividly shows that the major contri- 
butor to the poor relative performance of this design metho- 


dology in terms of both weight and cost was the shell plat- 


od 


mee, uch of the added material near the neutral axis an 
Metie cect (relative to the DD-931 as built) was very an= 
efficiently applied, as is evident in the low stress levels 
existing in the deck structure of the new designs. Similar- 
ly, the cost of welding and favrication of the shell plating 
was materially increased by the presence of the neavier 
peacans throughout the sirth of the midshin section. 

There appears to be a distinct reduction in cost per 
unit length as the interval between transverse frames is 
increased. This is apparently the consequence of the apnli- 
eon or the cost of this framing to the overall structural 
cost. The cost per foot leneth of the transverse framing 
Varies. markedly as tne interval between the frames is in- 
creased. Similarly, the weight of the transverse framing per 
foot hull length reduces as tne interval between the frances 


is increased, altnough to a much smaller desree than the 








eg eae 


(cost varies. 

No distinct trends in total weight per unit length vere 
apparent in tnais investigation. the majeoweee on ac se 
variations in weight was the number of longitudinals required, 
as both the selected olating thickness and longitudinal scant- 
ling were identical for all three cases exanined in detail. 

Unfortunately, no information was available to permit 
a reasonable estimation of the savings to be realized by the 
volume acquisition of identical structural members. This 
economy, along with the reduced handling and storage costs, 
should be incorporated in any such analysis as this, but is 
very doubtful that these savings would be of such maznitude 
as to offset the disparities existing between tne new designs 
and tne costs of consturction of tne original DD-931 midshio 
Seeinic: Jesligen. 

The traditional Gesign concept of varying ai ee 
thicknesses and longitudinal scantlings is a sound one. This 
approacn promises to be even more valuable when incoryvorated 
with the techniques developed in this investigation for the 
Variation of the intervals between longitudinals. Further- 
more, the use of different structural materials should be 
investigated in detail. Very frequently stability criteria 
dictate the pleating thicknesses required when using hign 
strength steels such as HY-80. The variation of longitudi- 
nal intervals would permit the use of much thinner plates in 


heavily stressed areas without the proplems of plate stability 





ace 


otherwise to be encountered. aArnreciable weaifht economies 
should be realized from the suneroosition of the technicue 
of variation cf longitudinal interyaaae ecm mon 
different structural materials while varying olating thick- 
nesses and lonsitudinal scantlings. 

The design of a midshin section with a single plating 
thickness througnout and uniform longitudinal scantlingss 
proved to be workable but less efficient than conventional 
techniques. The basic idea of varying longitudinal intervals 
moescound, and detailed studies of variations on this basze 


Hdea Snould be carried out. 
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PROGRAI! DOCULEUTATICN 


The structural and cost calculations Dor euiemand> maa 
section design were generated by a series of computer 
Paoghaisc and Subroutines, listed belove Waite ere seoccwsrcd 
and explained in detail on the following pages. A program 
Herstiig, flow chart, and sample calculation accompanies the 
descrintion of the operation of each prosram or subroutine. 

All prosrams and subroutines were written in FORTHRAI! 
IV and were run on the IBM 360/65 computer. 

fain Programs: 


Ae RUNSCORE 
B. COSTDATA 


subroutines called by hain Programs. 


C. TSLECT 
D. HDWTR 

B. CSPACE 
F,. CLOVGL 
Creme a ec ot 


Subordinate Programs used to generate input data 
hata De meer ants 


H. SHDATA 
I. DKDATA 
tg Sy deal 
K. @WISMOD 
ee oer & 
Me. COSTAE 





A. HATIT PROGRAH RUNSCORS 


1. DESCRIPTION 


iVecoducuLlon 

Main program RUNSCOR® carries out the desisn calcu- 
Tation for the midshin section of DD-~931, selecting one 
plating thickness and one longitudinal scantling (except 
for the keel) to be used throughout the structure. The 
basic computational methods described by St. Denis L1] are 
used, modified as necessary. 

This program is not designed to optimize the charac- 
teristics of the midship secticoy.. The required nlating 
thickness is selected, the spans between the various 
longitudinals are determined, and the required longitudi- 
nal scantlings are evaluated. Once the structural design 
has been completed, the net section characteristics are 
evaluated and the resultant primary compressive stresses 
are compared with the design criteria. Should the design 
be overstressecd, the next greater available plating thick- 
ness is selected, and the entire cycle is repeated. RUI- 
SCORE uses existing HTS plating thicknesses and longitudi- 
nal scantlings, as opposed to any idealized materials with 


a continuous ranse of available sizes. This, inevitably, 





Soe 


resulvs in overdesigned structures in many cases. 

After the inout phase has been completed, subroutine 
TISLECY determines the minimum permissible plating thick- 
ness, dictated by the minimum tolerable longitudinal 
Spacing specified as an input to the program. This sub- 
routine also determines the greatest permissible interval 
between longitudinals for the stresses and nydrostatic 
loadings existing at the keel. 

Beginning at the keel, the program "climbs" the 
girth of the midsnin section. The first longitudinal is 
located using the maximum permissible interval determined 
by subroutine TSLECT. Subroutine CLOIGL then calculates 
the required longitudinal scantling for this location, 
and subroutine CSPACE evaluates the span to the next 
longitudinal, and the cycle ic repeated. When the shell- 
deck intersection is reached, the orogram is designed to 
assure that the snan to the intersection is at least the 
minimum permissible value. The distance to the inter- 
section is compared with this minimum anc, if necessary, 
the span.is increased by reducing the spacings between 
the vreceding longitudinals in the shell structure. This 
longitudinal relocation algoritnm is so structured as to 
prevent the inadvertent reduction of longitudinal spans 
to less than the minimum tolerable value. Once the location 
of all longitudinal-plating intersections on the shell has 


been satisfactorily completed, the program proceeds to the 
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Similar location of the deck Icneitudinals. 

The deck calculations are carried out in a manner 
identical to tnat used for the side smell. AUiSCORE is 
SG structured that the midship sectaoneacc peus yc 1c 
with a decz longitudinal on the centerline or the center- 
line exactly at midespan petween two deck longitudinals. 
ms tor toe side snell, une Sbaci@ecetmeat less cues 
at least equal to the minimum permissible value. If neces- 
Sarv., wrovision is made for the systematic reduccicn oF 
epens between longitudinals to Insure Gio cits 2S tne cece. 
Up to this point, the program has assumed that the longi- 
tudinals were of adequate strength, with no svecific de- 
termination of scantlings. 

With all longitudinal locations now determined, tne 
remiired scantlings for each specific location are cal- 
eibaced, With the heaviest needed anywaere aa. bac 
Suructure selected for use throulenovo Gie cucvenure. 
Criteria as to the minimum radius of gyration, stiffener 
Surength, stiffener critical strength, and the stability 
of the stiffener-plating combination must all be satis- 
fied. 

With the plating thickness and longitudinal scant- 
tings determined, subroutine PHINER 1s called to provide 
the information needed to calculate the contribution of 
the plating to the moment of inervia and cross-sectional 


area of the overall midshin section. The effects of the 
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ilar 


longitudinais are combined with this to determine the 
total cross-sectional area and moment of inertia for the 
entire midship section. 

The structural weight of the midship section is 
evaluatec in some detail. Tne total weight per foot length, 
including an approximate valuation of the contribution of 
the transverse franing to the net weight, is calculated in 
pounds and tons. The contributions of the plating, longi- 
tudinals, and transverse framing are similarly determined, 
pRGeowly in tersis of polinds per foggelen ama. 

With the overall section characteristics fixed, the 
actual hogging and sagging bending moments used in the 
design of the DD-931 are employed in the calculation of 
the actual primary compressive stresses exerted in the 
iBeeteeand deck structure. Should elther of aesescceat 
the design limiting values, the plating tnickness is in- 
creased to the next greater value, and the entire conpu- 
tation is repeated... Tnis iterative process is carried 
out until both primary compressive stresses are ceter- 


mined to be less than the maximum permissible values. 


Inouts 
symbol Meaning 
PIDATACT Ji 51) a con DOtMic aCLaaive 
Feet 
PTDATA(I,J,2) Height of noint above base 
line. (Feet) 
PIpAlTA Class) Distance to next point on 


girth. (Feet) 





SvVmCGe lL 
STI CRK 
See 


Siilejurayk 


SGMULT/SGMYLD 


A3HEEL 
D1 
HLAMDE 


HLDFL 
XLGTNL(I,1) 
XLGTUL(I,2) 
GTNL(I, 3) 
XLGTNL(I,4+) 
XLGTNE(TI, 5) 
WSBMIN 
FRI 


Calcvlaved Items 


S yribo tL 


XLONGL(I,2) 


RLONGL (1,3) 
XLONGL(I,4+) 


Meaning 
Maxinum vermissiple guress ag 
eel ey AC lem ica) 
Maximun vermissible stress at 
+ ; ka ° 4 
Géck cenvorl) qemeLonc: 


Here 

Bstimated value or secandary 
stress. (Tons/In.°¢) 

Yield Suvess @2 'o%e, wlecine. 
(Tons/ las ) 

specified maxinum neel angle. 
(="OF 5230 eadaame 

Depth on, laoreet 
feet) 


Specified design head of water 
above main deck. (= 4.0 


Tec 
Design full load draft 
(= 125 feet) 
Maximum moment of ance Or 
stiftenes (i) 2 acne) 
SCLLlener “a1 eee meee 
forrez trar ce teats 
Stifgener area. (In.¢) 


VCG of Stitfener Tei teorcue 
flanceoclaey) 
Stittener overall depun.  @laew 


Minimum permissible longitudi- 
nal spacing. (Feet) 

Transverse frame spacing. 
(Feet) 


Meaning 

Halt preadGwete sven sec ilo 
Of Slates Wa um lem er oc T= 
nal (I). (Feet) 

Height. above keel of plating- 
OM cami aster S.C On ue) aye 
(Feet) 

Ealf breadcn- of poant vrecedane 
the intersection. (Feet) 

Heignt above keel of point pre- 
ceding tre intersection. 
(Feet) 





oe 


Sym oe 


W53ACT 


W5BPRC 

W>BTOL 

SUMDST/DSTSUit/ 
DSUM 

SUMCAL/SU1‘DIF 

DINE 


ILONGL 


LCOUNT 


SPAN (I) 


BBDIST 


ye 


LDIF 


ASA 
VE 


FFE 





Meaning 
Tolerable longitudinal spacing 
for selected plating 
tiem cc Coe) 
Longitudinal span to lonsi- 
‘Cea stion. (Feet) 
. abn 


Sum of distances between yvoints 


Distance to point preceding 
plating-longitudinal inter- 
section. (Feet) 

Distance fron point AG oUMen 7 
SUMDIN to Une inversseccren. 
(Feet) 

An identifying nunber for lon- 
gitudinals other than che 
keel. Wo. 1 adjacent to 
the keel. 

The value ot PLONGRe at deca 
shell intersection. Ho 
tongi tudinal nere 

Distance to longitudinal (I) 

i Pom preceding longitudi- 
nal. © (Feet) 

Distance needed to be gained 
by reducing spans betreen 
shell lonzitudinals to 
permit W5SHNIN distance 
from last snell lonsitudi- 
nal to deck intersection. 
(Feet) 

Increment tne span between 
longitudinals is reduced. 
(Feet) 

Number of spans to be reduced 
on deck to obtain desired 
svan at centerline. 

Effective width of plating. 
Cin) 

Moment of loncitudinal-pvlating 
COHDINAtHONea Out oucer 
edge of tne plating. (In. 3) 

Total area of the lonsitudinal- 
plating con ‘bination. (In.°) 





SUlDaue 


CGCG(1I) 


XMINGR(T) 


RGYR 


BRSPAH 


DVALUE 


STALL 


ARK 
‘eu 
« 


PRESS 
BMOMNT 


STLEST 
STALL 
REQMOD 


SMODIMIN (1) 


BVALUE 
BETA 
GAMA 
DLTA 


PO 
19 


Oa 0 line 








Centroid of longitudinal - 
plating combination, in 
itor comic Ga.) 

Moment of inertia of lonsi- 
tudinal-plating combi- 
nation about CGCG(1). 
(ine 

Radius 62 S7raoonmoie em 
gitudinal-plating combi- 
nation. (In.) 

effective svan (supports 
fixed) for stiffener 
strength calculation . 
(Feet) 

Flexural rie¢gidity of platings. 

TOMe teas) 

Permissiple sum of vorimary 
and secondary stresses. 
(Tons/iIn.<) 

Distance to outermost riber 
of longitudinal-nlating 
combination from CGCG(T). 
(Inches) 

Hydrostatic pressure at Lon 
patudi nal. (lems cms 

iattizmmm bending moment on tne 
Longitudinal-plating ccn- 
bination at mid-svan. 
Ciena iaae 

BStinated primary stress. 

Cig 2s ann. 

Allowable value of secondary 
stress. (Tons/in.*) : 

Required section modulus of 
plating-longitudinal con- 
Dinas omen lne 

Required section modulus for 
Lonet vudi nade bei pena 
conbination at deternined 
by subroutine CLONGL. (In.3) 

Rigid pyseG ol lor Ina) 


BSveCce LTacio ol slave. 
inertia factor. 


Area Tactenr. 





NO 
1 


SOL Meaning 
SUL:TN intermediate valine Woe fi 


Cate cower Vie am 
streneth or stittened 
Dlating. (Tons/in.) 


BETAPL Used in calculatins critical 
SUCreNZUN. Of saci. 2eoneG 
je)ikeltaallove. (BETAC + 1) 
Cri fous Desisn stress CEigerila. 


(Tons/in.2) (1.25 x 
(STLEST + ST2=2ST)) 
HOGS La Tolerable stress level de- 
termined pb o-ers Vireo 
strenftn oe 


(ions, uae 

ARBAPT Total cross section area of 
half breadth olating. 
(In.? 

XLNGTL(1,T1) Characteristics of keel 
VOne ica tieads. 

XLUNGTL(2,TI) Characteristics of other 
Iejeabw bisa cel. S « 

SLOPE2 (K) Slope cf the web of longi- 
GiUcaieaue Cg. 

ZZ Height of VCG of longitudinal 


above longitudinal-platins 
intersection. (Feet) 


ZPOINT Heient of VCG of longitucinal 
above the base line. (Feet) 
BASEMT(K) Height of VCG of -longitudinal 


above the base line. (Feet) 
a Keel 
K = 2,...40 (HONG Teo 


BLMOM Total moment about the base 
line. (In. sake 

AMONLY TOuak HOnmeny Or waner ae as 
the base line. Gn 2 Feet) 

XINER MOmMenu Of 1 1eru om she ac 


shio section about ghe 
neutral avis. (iIn.< Feet®) 
ATH Placing TMILCENGSS Peoume co oe 
insufficient, So be in- 
crenented. (Inches) 





Output 
Symbol leaning 
WEIGHT weicht contribution of the 


Dlauinewe (Poumas/ me. 
Bene aa 





Symbol Meaning 

ZNAALS Heicht of neutral axis of mid- 
shin section above base line. 
(Feet) 

RisQrir Required moment of inertia about 
origdnal Bd-931 Meio ha. 7s 
(into tea) 

ASTRSS Actual vorimary compressive stress 
in keclee@l on] sna) 

BoTRESS Actual primary comoressive stress 
in deck. (Tons/In.*) 

WIOTLB Total structural weignt. (Pounds/ 
Ft. length) 

WPRALE Transverse frame weight. (Pounds/ 
Ft. length) 

WIOTAL Total weightw lone, mosatencea 

WLCIGL Total longitudinal weight. (Pounds/ 


Ft. leneth) 


Sample Input/Output (Refer to printout of typical computer 
run, following pages) 


aK 
Fundanental Baquations (Refer to program listing, follow- 


ing pages, and St. Denis 1a) 
THE FOLLOWING IS A REPRESENTATIVE SAMPLING OF 
EQUATIONS PARTICULARLY IMPORTANT TO HAIN 
PROGRAM RUIISCORE: 
Longitudinal location 
SUMDST = SUMDST + PTDATA(I,J,3) 
SUMCAG = *SU-MS. = PIDATAG ne) 
DIFF = W5BPRC - SUNCAL 
Dues "a DIFF x (PIDATA(I,J+1,1) 
EDA an cae 


iD Are Glcieln) PTDATA(1,J, 3 


XLONGLCILONGL,3) = PTDATA(I,J,1) 


XLONGL(ILONGL,1) 


eee enemies 0 Ge eet I es Sm 


ARN = jlesser, 12. x SPAIN) More 5 0. fam 


FF = XLGTUL i 
0.5 


(J,3) = Cec a eee 
x AAA x (THI) 





oye 


aT 


PPP = KLGING(S,3; * i aia 
CGCG(I) = Fr / FFF 


XMINGR(I) = XLGTINL(J,1) 4 XLCTE 
- CGCG(I)) 


yee CLG Tin Gay 
+r 2 
THiS +) Tees 


22 
2 a eee 
(CGCG(T) 





satisfy requirements as to stiffener strength 


ent ener renew are 





oon ke. 30605577 soi 


_, _ 123392.857 x m3 
t ho z 
bane = Soe 


BMOMNT = 216. x PRESS x SPAN(I) x FRO 
REQMOD = BNOMNT / ST2ALL 

BVALUE = 13392.857 x XMINER(I) 

BYALUE 


x ors 


a Ce eee 


CEES = eR romse GC emuaer: 


-1416* x DVALUE 
Tile, x Thl x SPANG 


BETAPL = 1.0 + BETAS 


GAMMA 





le. x DVALUS 












SuLrTN 


CRi tat. 2> x (STL EST pomeen oe) 


TOLSTR BePAaj]= x (1. + Fisica DELTA) 


Calculate the total moment of inertia of the midshipn section 
ADINER = XLNGTL(1,3) x BASENT(K)© + 
XUNGTL(1,2)/T44, + (XLNGTL(1,1) - 
XLNGTL(1,2))© x 2. x ee 
Ui. x 3.1416 


ZNAXIS x (SLMOM@ - AREAPT x | 


coe a = 
eee BLYOn 





al at oa eat . La =f. 
f ‘ aaa te I anldfet err tn 
A gill whe oe wie cae 1 
SNe ae cre use oe ea en gem 
Van } oa 
Leas 








et 4 es 
ete ce ms 3+ os rr” “yy 
kot Pate OF) of LS i ee eal 
Swe PS a 


ee ee (Cs 
(0.62303 (HR 3) 72) 


} 
het ae 
Pre 





(Refer to program listing, flow chart, 
and printout of habe computer 


run, following pages 





MeLeve. 0, Mod c MAIN DIE = Grplbere: lovee se 


DIMENSION XLUNGL (40,4) ,SPAN(4C) »SHODMNI(40),XLGINL(9,5) ,XLNGTL(2,5) 
PytoeGi 40) sah NERC 4 I) y SLUPES](40) ye TOATA AS Solos Bao AS TG O) 
Le 
c INPUT DATA AND INITIALIZE STORAGE Daies 
c 
Noo ACh. CeO ) 
954 FORMAT (fl I J PITDATA(I,J,1) PTDATA(I,J,2) 
l PTDATA(1I,J,3)°) 
BS) FURMAT (4X-.14,4X%,14,7X,3(F1L0.6,5X) ) 
ARITE (6, 954) 
Bee FORMAT (23X%,4(2X%,F1G.5)) 
DO 907 I = 1,29 
i DO 907 J = 1,19 
POP READ (5,90L) PTOATACI,J:1), PTDATA(T,3,2),PTDAIALCTI, J, 3} 
DU 903 [I = ly 40 
DO 903 J = ly 4 
903 AXALUNGL(I,J) = 90.0 
Sar A XLIBP» SUMDST,ILONGL »R5OGYRA, w5SBTOL/407.;,0.5, 170070 67 
I = 39 
J = 1 
READ (5,9C1L) PTDATA(I,J+1)5 PTDATA(I»J22), PIDATA(I,J,3) 
DO 910 J = 2, 10 
OO 910 K = Il, 3 
910 PTDATA(I,J,K) = QO 
DO 941 J = ly 2 
DU 941 K = lL, 5 
941 XLNGTIL(J,K) = 0.0 
9CO0 FORMAT (5Fl16.7) 
915 FURMAT (f1 REQUIRED MOMENT OF INERTIA =1,F20.6,!% IN®* FI[<* 2?) 
Soom URMAT (*0O ACTUAL MUMENT OF INERTIA =!', F20.0%9 * LLN«=s2 riz???) 
917 FORMAT (fC wAX. TULERABLE StivtkKk =',FL1O0.7,' TONS PER SQ. INCH?) 
SetomeruRMAT (*93 ACTUAL STICRK =*,FILO.7,* TONS PER SQ. INCH*) 
Brome URMAYT (*O MAX. FOLERABLE STICRD =",FIO.7;,*" TONS PER SQ. INCH*) 
PraemeenM AT ('C ACTUAL STICRD =',FLO.7," TONS PER SQ. INCH") 
921 FORMAT (40 IBIAL WEIGHT =", FLO.7s*) TONS Pek oe eenGciraee 
1921 FORMAT ('*O PLATING WEIGHT =", Fl5.7,' POUNDS PER FOOT LENGTH! 
L) 
1922 FORAAT (° LONGITUDINAL WEIGHT =", F15.7,* PUUNDS PER FOUT LE 
INGTH® ) 
1923 FORMAT (3 TRANSVERSE FRAME WEIGHT =',F15.7,* POUNDS PER FOUT 
meee NGTH?® } 


922 FORMAT ('0 TOTAL WEIGHT =", Fl5.7,* POUNDS PER FOOT LENGTH") 
SeomeuaMAT (*O NEUTRAL AXIS IS *,FLO.7,* FEET ABOVE BASE LINE*) 


924 FORMAT (#0 DESTGN 15 ACCEPTASEE!?} 
934 FORMAT ('06 SPAN(*,I2,*) =",f1020) 
933 FURMAT ('*1 SPAN(',I2,*) =',FLO.6) 
Bzo) FURMAT ('O DESIGN REPEATED WITH THL INCREASED® ) 


Bee FORMAT ('O DESIGN IS NOT POSSIBLE UNEESS Toi 1S GREATER ie 





One 


SeLeEVEL O, MOD 3O MAIN DAS eo. S 2 19/43/58 


OMOMOOoNA 


eee) it NCH ssa | 

926 FORMAT ('C. SCANTLING *,13;,° SELECT ER--Getss-SeEC ht Ae eae 
Om 1 558 SG [Ms AND WES DEPTH DT Saeitee 1 Oni eile ce 

Biz? FORMAT(*Q KEEL HAS AN AREA UPS p10. 7g SON ANU Ais eee 
eee Oelig mel C lie Se) 
DO950 [ = ly 30 
DE eS5 Ui o) e=. be. LG 

950 wRITE(6,951) LeJsPTOATACIsJ,1),5PIDAEIAUL Je 2 ei eee oe 
READ (5,900) STICRK, STICRD, STI2ZESi.. SUMUET oc be 


955 FORMAT CO INTERIM THL =*y,FL0.6%9* AND WSBACT =",F10.6) 

Boor FURMAT (° I =',I1f3,' j=", 1350 SUMOST =!,F10.6) 

poe FORMAT (*O SPAN(*,12,'} = 'sF10.6;,° f= *',I2," J = %312) 
958 FORMAT ('O I= ', I3,° Hd = 'o Riga) 

Soa FORMAT {('0 AMUNER(*¢12,%) = Fi5.6) 

Foe EORMAT (40 CGCG{(*s12,°) = 5» FlGcice 

Soler URMAT (°C LONGITUDINAL (°, I[2,s") eel Se Seve Ci ees 

woeerORMAT ('O BASEMT(',. 125°) -=—"* favor 

PeoerOIRMAT ('O SELECTED PLATING THICKNESS = 85 lU o eNG we oe a) 


READ (5,900) A3HEEL, Dl, HLAMOKy HLOFL 

902 FORMAT (LHL,6Xs"STLCRK',9X_*STLICRO' 4 9Ke *STZEST 9 9X_* SGMULT #9 9X, 
1 'SGMYLD') 

904 FORMAT (5(5X,F10.6)) 

905 FORMAT (5X,'a53MIN =",F10.6," FRA =*,F10.6) 

QLL FORMAT (13,6(2X,F13.6)) 


912 FORMAT ('1LI',4X,_! Y ",5X,° Z *,5X,' re ee 
1 5X,'° ois ",TXe*SPAN(IT)%s 7Xy*SMOOMN(T)") 

Pom ORMAT (5F16.7} 

964 FORMAT ('C | MAX. I. MIN. I. AREA VCG 
L Der Tht.) 


Pee RTMIAT (2X, I2, 2XeFI1L.6, 4(3%- FeO.5)) 
WRITE 6, 964) 
DO Yl¥ [I = ly, 9 . 
READ (5,913) XLGTNL( 191) _9XLGINL( 1,2) sALGTINL( 1,3) ,XLGINL(1943,XLGITN 
1L(1I,5) 

914 WRITE (6,975) I, XLGTNL(I,1), XLGTINLG(1,2), XLGINL(E,3), XLGITNL(1I,4 
Ll)» XLGTINL(1,5) 

965 FORMAT('O W5SBACT =",FLO.6;, ° WOBPRC =',F10.6,' WOBTOL =", FlOeo 
1) 

966 FORMAT( *O Y=" - 10.6," je = "oF lO cone YPR =] *, 10: 6:,.: LPR: =" F 10 
1.5) 

967 FORMAT ('C CLONGL QUTPUT = ',4(F190.6,5X)) 


BaoVvVide INPUT DATA TO CONTINUE CALCULATION INTERRUPTED IN @PREV Gags 
COMPUTER RUN. SOLUTION UP TO THIS Time INDICATED FURTHER INCRE ME es 
IN PLATING THICKNESS wERE NECESSARY. 


500 READ (5, 900) W5SBMINy, FRM 
Meet WwoBMIN «GT. 9.99) GU 10 420 





. o>, 


Pee EVEL OU, MUD 


ocr e® 


Oaan 


e 


400 


668 
667 


940 


9940 


220 


533 
115 


205 
207 


20] 


= 31 


0 MAIN WAT ee =o. LO 2 19/43/52 
Wi Sisk G loe= eG 
WRITE S407 ca 
SUMDST = 0.0 
ILGNGL = 1 
woo WO =.9.C 
MReia ONG lee o leo) GUO11U 666 


DEPERMINE PLATING THICKNESS 


Gael TSLECT {woBMINySTICRK ST ZEST s SOMO ERM i oe ae ID 
GO TO 667 

Meaac) = FHL * wOBACT / ATH1 

DO 940 J = le 490 

SPAN(J) = Q.0 

SMODMN (J) = 0.0 

CGCG(J) = 
AMINER( J) 
me PE2{ J) 
pao emi (J) 
OO 9940 J 
DO 9940 K 
XLONGL(J+K) = 0.0 

WRITE (67904) STLCRKsSTICRD,STZEST, SGMULT »>SGMYLD 
WRITE (6, 905) W5BMIN, FRM 

WRITE (6, 955) TH1L, W5S3ACT 

W5BPRC = W5OBACT 

WRITE (6,965) WSSACT,W5S83PRC »WOBTOL 


Oe i nae CO 


Been vAiNE ACCEPTABLE LONGITUDINAL SPACING FOR BOTH DECK AND 
SHELL LONGITUDINALS. 


ee 200 [se 1, 30 

DO 2090 J = ls 10 

Pie CLLONGL .bT. 1) GO TO 333 
W5BPRC = wWSBACT 

GO TO LL5 

W5BPRC = WOBTOL 

SUMDST = SUMDST + PTDATA (CI, Js 3) 
ARITE (6, 956) Ie Jy SUMDST 

meat «EQ. 39) GO TO 225 

Pee ti .€Q. 19) GO TO 205 

GO TO 207 

IF (J .EW. 10) GO TO 204 

Mee (SUMDST —- W5BPRC) .GT. 0.0) Gu 70 202 
so TO 200 

sumcal = SUMDST — PTDATA(1,Js3) 
DIF& = ASBPRC -— SUMCAL 





“ou 


PeLEVEL O, MOD 9 MAIN Aer = 36 (1 3 2 19/43/58 
C LOCATE THE LONGITUDINALS 
ic 


Lied oth} GOUrtG 202 

XLONGL( ILGNGL,1) = PIDATA(I»,J,1) + (Ole Piet...) 

Mee On A Chiat ls Pe — ~PTIDAT ALI. 3.1 

ALONGLIITLONGL.2)= PTDATA{I1,J+:2) + {DIPEF7P IRA T AI 3.3) e 

meee VOATACis J+ isc) —- PIOATAUL, 3,299 

XLONGL(ITLONGL, 3) PITDATA MCh =I 4aai 

XLONGL(UILOGNGL, 4) PIDAT A (Eee) 

SUMDST = SUMDST ~- wd8PRC 

WRITE (6,966) XLONGL(TLONGL,1),XLONGL(ILONGL,2) ,XLONGL( ILONGL,3),%X 
LLONGL{( ITLONGL,4) 

GU TO 203 

MeZzeXLUNGL(ILONGL»s1)= PTDATA(I,Je1) + IDIFF/PTIDATA(I,J,3)) = 

Meee TDATACI*+1,¢131) - PTDATA(I,J,1)) 

meOINGL{IITLONGL,»2) = PTOATA(IsJ-2) + (DIFPF/PIDATAIL 3) = 
1 (PTDATA(CI+1,192) - PTOATA(1I,J,2)) 

XLONGL(ILONGL,3) = PTIDATAUI ,Jel) 

XLONGL{ ILONGL, 4) = PTOATA (I> Jy 2) 

SUMDST = SUMDST -— wW58BPRC 
WRITE(6,906)XLONGL(TLONGL,1),XLONGL(TLONGL,2),XLONGL( ILONGL +3) %X 
LLONGL(ILONGL? 4) 


c CALCULATE RSGYRA AND SMODMN REQUIRED FOR LONGITUDINALS 


WRITE (6, 965) W5BACT, WOBPRC, WSOBTOL 
203 AAA = RSOGYRA 

CALL CLUNGLISTICRK»STICRD,STZESTsSGMULT »FRity FHL ye WOBPRC, 

L RSGYRA,SMODMN( TLONGL ) »XLONGL(TLONGL,1) »XLONGL(ILONGL,2)) 

WRITE (6, 967) ROGYRA,SHODMNG TLONSL ) »XLONGLOTLONGL,1),XLONGLIILONG 

lL y52! 

WRITE (6, 965) WSBACT, WOBPRC, WO3BTOL 

Peet ROoYRA .GT.eAAA) GO TO 210 

R5GYRA = AAA 


DETERMINE LONGITUDINAL SPACING. 


OmOmOo 


PepomecAL!L CSPACE (STICRK,STICRD,STZESTs;SGMULT,FRM,THI, 
L XLONGL(TLONGL»1),XLONGL( ILONGL 12) ,wS8PRCyWS5SBTOL) 
SPAN(TLUNGL) = wOBPRC 
WRITE (6, 957) ILONGL, SPAN(ILGNGL)»I5 J 
WRITE (6% 965) W53ACT, W5SBPRCy, wOBTOL 
ILONGL = ILONGL + lL 
GU TO 209 


AOJUst FOR DECK-SHELL INTERSECTION, 


moan 


204 [COUNT = TLONGL 





| =. sooner 
eLEVEL O, MfID CO MAIN DATE = 67132 19/43/58 


| beeotsuHoS) Se iei. WwoOomilhlie GO. Powe 
| SEAN POCLEOUNGE | e=—-SUMOST 
WRILITE (oy 95/7) ILUNGL, SPARILLONG S| 
SUMUST o= 0.0 
XLONGL (TLONGL, 1) 
XLUNGL CILONGL, 2) 
XLONGL (CILCGNGL, 3) PTDATA( 209 ls 1) 
REONGE CIiLONGL,.4) PIODATA(C ZO... eae] 
WRITE( 6,966) XLONGLOUILONGL,1),XALONGL(ILONGL,2),XLONGL{ ILQNGL» 3), 
Ll XLONGL{(ITLONGL,» 4) 
ILUNGL = ILONGL + 1 
GO TU 200 
Zeo AX = [LUNGL - 1 
BBDIST = wd58HIN - SUMDST 
STEP = BBDIST / XxX 
214 JJ = 1 
PE A{(SPANC1L) — WOBMIN) .GT. STEP) GO TO 216 


PUDATAC ZO. Tiel 
PTDATA(20, ly 2) 


ADJUST SPACING BY REDUCING THE SPAN. 


AMaMD 


moos JAJA=1, LLONGL 
CC = SPAN(JAJA) - WSBMIN 
BBDIST = B&DIST - CC 
Mee CBSDIST .LT. 0.0) GO TO 97 
98 SPAN (JAJA) = WSBMIN 
WRITE (6, 957) JAJA, SPAN(JAJA), I, J 
IF (JAJA «EQ. ILONGL) GO TO 99 
97 SPAN (JAJA) = SPAN (JAJA) - CC ~ BBDIST 
WRITE (65 957) JAJA, SPAN(JAJA) > I>) J 
99 STEP = 0.0 
PltomOS TSWite- 0.0 
MoeNoG 215 TA = ls 19 
Mom2i> JA = Ll, 10 
DSTSUM = DSTSUM + PTDATA (IA,JA,3) 
Mee t{(1O*#1A + JA) .EQ. 200) GO TO 110 
IFC (SPAN( JJ) - DSTSUM) .LT. 0.0) GO TO 107 
GO TO 215 | 
107 SPAN( JJ) = SPAN(JJ) - STEP 
SUMDIF = DSTSUM = PTDATA(IA,JA_3) 
DIFF = SPAN(JJ) - SUMDIF 
meyeme (6, 957) Jd, SPAN( JJ), IA, JA 
Moet SPAN( JJ) -GT. 0.0) GO TO 127 
SepaANt(JJ) = 0.0 
WRITE (65 957) JJSe SPAN( JJ), LA, JA 


GO TO 110 
Peneie {JA .c@. 10) GO TO 108 
XLONGL(JJ:1) = PTDATAIAsJAs1) tC  OLEE / 


1 PTDATA (IA,7JA,3)) * (PTDATACTIA,JAt1, 1) - PTIDATA(TA; JA,1)) 





= 242 . 
MeL EVEL O, AOD O MATIN we DATES = 67.132 19/43/52 


Rae Gated Jie 2) ae PTDATA( IA, JA, 29) ete teas 
1 PIDATALIA,JIA-3)) * (PTOATALI A, JA 415 2mm aaa sane rena 


Meo Ser POALA CIA, Jag 1 
XLONGLItJJ,4) = PIDATA (lA; er oa 
WRITE (6,9606)XLUNGL(JJ91) ,XLUNGL(JJ,2),XLONGL(JSJ,3),XLONGL(J5,4) 


meat SUMY= DSTSUH -— SPAN{(JJ) 
JJ = JJ + l 
mio FO 2i5d 
Mee ALONGL(JJs1) = PTDATA(IA, JA,1) + ( OLFF i, 
PePTOATACIA,JA,3)) * (PIDATA(IA+1, 1,11) — PIDAIAGIA 2 
XLONGL(JJ,2) = PTDATA(IA;JA;2) + { OLE Ray 


Peel DATALLA, JA, 3))*(PTDATACIA+1,1;,;2) = PEDATAITAAIA. 2) 
MEONGL(3J-3)= PITOATA( IA, JA, 1) 
XLONGL(JJ24) = PIDATACIA,JA,2) 
WRITE (6,5 966) XLONGL(OJJ_1) ,KALONGL(JSJS22),XLONGL( JJ 23) »XLONGL(JJU94) 
DSTSUM = DSTSUM - SPAN( JJ) 
woe - JJ + 1 
co 1G 215 
L110 XLONGL(JJ,1l)= PTDATA (20,1,1) 
MEONGL{JJ,2) = PIDATA(20.,1+2) 
MONGEL(JJ>3)= PIDATA (20,1,1) 
MONGL(JJ,4)= PIDATA (20, 1, 2) 
SPAN(ILUNGL) = W5OBMIN 
WRITE (67 966) XLONGLOJJ91) ,XLUNGL(JJ,2),XLONGL(JJ,3)sXLONGL(JJ,4) 
WRITE (6, 957) JJe SPAN( JJ), TAs JA 
ILONGL = ILONGL + 1 
SUMDST = 0.0 
GU TU 206 
215 CONTINUE 


C 
C Rewer VECK LONGITUDINAL SPACING [0 EXCiILITATE SYMMER Mees ee 
c Mmeebite CENTER LINE. 
C 
peer (((0.5 * W5BMIN) - SUMDST) .GIT. 0.0) GO TO 3Odl 
GU TO 220 
C 
C DECREASE SPAN TO OTHER DECK LUNGITUDINALS TO PERMIT CENTERING SPAN 
e ON THE CENTERLINE. 
C. 
SoreerolrFr = [TLONGL - [COUNT - 1 
XDIFF = IDIFF 


eee = (0.5 * WOSMIN — SUMDST) / XDIFF 
SPAN(ILONGL) = 0.5 * WS6MIN 
ILUNGL = ILONGL - 1 
IRKED = [COUNT + 1 
DO 825 IA = [RKED, [LONGL? 1 
BSPANC IA) = SPAN(TA) - STEP 
826 WRITE (6,957) IA, SPAN(IA), II JJ 





| ~ 35 - 


iG LEVEL Oy OD O MALN Dn earls 19/4578 
| den) ici emane 1 | 

IA = ICOUNT + I 

DOe22Zi l= 20,29 

OMe? Teens 10 


Co Gre 


228 


229 


mead 


220 


230 


PsUce=e Ostet PhDATACI I s9), 3) 

IF ({SPANCIA) - DSUM) .LT. 0.0) GUO Tu) 223 

Boe tO 2 2 7 

eid) «6eGe 10) GO 10 229 

Semotr = PSUM = PTIDATA(IT,JJ;, 3) 

DIFF = SPAN( IA) - SUMDOIF 

XLONGL (IA, 1) = PIDATA (115 Jide a) + (CD Rei ey 


Pee TOATACIT I +JJ93)) * (PTDATA(II,JJ#lel)} = PIDATA GR IG, 


XLUNGL (IA, 2) = PTDATA (II, JJy 2) + OD lEre/ 


Mee TODATACTiyJJ23)}) * (PTDATA(I I sJJ+1l,2) = PTOATAY I 42 


MEGNGL{IA;3)= PTDATAUII»,JJ,1) 

mmeNGl{iA,4)= PFOATALII,J5,2) 

Melt E( 6,966) XLONGL(1IA,1)+XLONGL(IA,2) ,XLONGEL I1A,3)>XUGNGL( 1A 4) 
DSUM = DSUM —- SPAN(IA) 

fA = IA + 1 

GO TO 227 

SUMDIF = DSUM — PTDATA CII, JJs 3) 

DIFF = SPAN(IA) - SUMDIF 

mMeONGLE (IA, 1) = PTD MA, (idles i cee + ( DIFF. / 


L PTDATA(TI+JJ+3)) * (PTDATACTI +1lyl,1) - PTBDATA(II,JJ,1)) 


XLONGL (IA, 2) = PIBAVA tilly Jj 902) + ADEE 7 


L PIDATACTI,JJ23)) * (PTDATACII+1,1,2) - PTDATACITI,JJ,2)) 


MEONGLOCIA,3)= PTDATACII,JJ,1) 

XLONGL(IA,4) = PTDATA(II,JJ22) 
WRITE(6,966)XLONGL(1IA,1),XLONGLCIA,2) »XLONGL(IA,3),XLONGL(IA,4) 
DSUM = DSUM - SPAN(IA) 

mer= [A + i | 

CONTINJE 

GO TO 300 

meet SUMDST «GI. WSBMIN) GO TO 221 


WmeeeeAsSE SPANS fO OTHER DECK LUNGITUDIWNALS TO PERMIT PEACT NG 
LONGITUDINAL UN THE DECK CENTERLINE. 


IF (SUMOST «LT. O.5*WSBTUL) GO TO 520 
BBOIST = wO8MIN - SUMDST 

IA = I[LONGL - [COUNT - 1 

XIA = IA 

SPAN(TLONGL) = w5S0MIN 

STEP = 3BDIST / XIA 

ICOUNT = [CUUNT + l 

DUO 230 IAI = ICOUNT, ITLONGL 

SPAN (TAI) = SPAN (TAI) - STEP 

PCOUUNT = ICOUNT = 1 





OOM 


Oman 


ee | | 
LEVEL O, MUD O MAIN Ses Ae mae Fa 19/43/58 


Ae Con Goi ie lAls SPAN( 1A 1 )eewe lec 


homes = 20,2 CS 
Ges 7s = le, nN 
OSU =. DSUM © PIDATA(II,Jd,3) 
Bet (SPANTIA}) = OSUM) «LT. 0209 GO Toe. 
Gia. 10 237 
mee IF (JJ .£Q. 10) GO TO 239 
SUMDIF = DOSUM - PTDATA (II, JJ, 3) 
DIFF = SPAN(IA) - SUMODIF 


XLONGLE (TA, 1) = PTDATA (II, JJs 1) +) ( (Dee 
PeePOATACITI,J353)) * (PTDOATA(Li,JJ+1,1) = PIDAI AO ie 
ALONGL (TA, 2) = PTVATA (II, JSds 2) +) i060 ieee 


MBI SATAt1I+JJ,3)) * (PIDATA(I1,J3J+1,2) = PIDAPANUE, Gyan 
PMONGLIITA;3)= PTDATAC(II+JJ,1) , 
MEGNGL(IA.4) = PTDATACII+JJ,2) 
WRITE (61 906)XLONGL (TAs 1), XLONGL(TAr2) sXLONGL ( L443)» XLONGL(TA,4) 
DSUM = DSUM - SPAN(IA) 
i= 1A + 1 
Eo 10 237 
239 SUMDIF = DSUM - PTDATA (II, JJy 3) 
DIFF = SPAN(IA) - SUMDIF 


XLONGL (ITA, 1) = PTDATA (11, JJy 1) + 41 DPE E ae, 
mew ACLIs,JJ,3)) * (PIDATACIT+1lsle1) = PIOCATATTI suo, l) 
 XLONGL (ITA, 2) = PTDATA (II, JJy 2) 40 (OLE ey, 


mee PUATALII[,JJ,3)) * (PIDATACITI4#1,1,2) = PTDATA(LI,JJ3;2)) 
XLONGL(IA,3)= PTDATAC(II,JJ,1) 
XLONGL(TA,4)= PTUOATA(II,JJ92) 
WRITE(6,966) XLONGL(1TA,1)_,XLONGL(TA,2) »XLONGL(TA,3)sXLONGL{ILA,4) 
DSUM = OSUM — SPAN(ITA) 
IA = fA + 1 
PoarecCONTINUE 
GO TO 300 


SPAN GREATER THAN WSBMIN, PLACE LONGIFUDINAL ON TRE CENTERLINE. 


221 SPANCILUNGL) = SUMDST 
XLONGL(TLONGL,1) PTDATA(30,1, 1) 
XLONGL(TLUNGL, 2) PTDATA(30, ly 2) 
XLONGL{ ILUNGL ,» 3) PTDATA(30,1l, 1) 
XLONGL(TLONGL 4) PTDATA(30, ly 2) 
WRITE(6&,966) XLUNGL(TLONGL »1),XLONGL(TLONGL,2),XLONGL(TLONGL, 3), 
Ll XLONGL(ITLUNGL,4) 
GO TO 300 


CURRENT LONGITUOINAL PLACEMENT OK. CENTER SPAN ON CENTERLINE. 


520 SPAN(ELUNGL) = SUMDST 





~ 


J 





| 


me VEL 

200 
a 
C 
C 


300 
B10 


206 


oo oe 


B22 
321 


320 


mon 


B23 
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GG TQ 300 
CONTINUE 


CAECCULATE THE REQUIRED LONGITUDINAL SCAND Ge 


BOO | = 1a 5 

XLNGTL(L,1) =XLGTINL(9,1) 

WRITE (6, 912) 

DO 206 III = 2, 40 

MeetoeANCIII) «GI. 0.0) GO 10 266 
SPANCITI) = 0.0 


Meet orAN(ITIi —- 1) .GT. 0.0) GO TO 296 
XLONGL(ITI,1) = 0.0 
XLONGL(IITI,2) = 0.0 
XLONGLCiTi,3) = 9.0 
XLONGLUII1I,4) = 0.0 


WRITE(6,911) [TIL,XLONGLOI ITIL s1),XLUNGLOITI,2),XLONGLC(III,3), 


1 XLONGL(T IL ,4),SPAN(LTI1),SMOOMN(III) 


SATISFY REQUIREMENTS AS TO MINIMUM RADIUS OF GYRATION. 


J = 1 

DO 320 I = ly 49 

Mem orAN(I) ».EQ. 0.0) GU [O 323 

IF (XLONGL(I,2) «Eds. 0.0) GO TO 323 

IF (12.0*%SPAN( I) «GT. 50.*THL) GO TO 322 

AAA = 12.0 * SPANT1) 

eH TO 321 

AAA = 50.*TH1L 

mee AXEGCTNLE(Jy4) + TH1L) * XUCWWETIJ,;3) + 0.5 * AAA * (THT =ezD 
FFF = XLGTNL(J,3) + THL * AAA 

meeGti) == FF/FFF - 

WRITE (6, 960) I, CGCG(I) 

XMINER(I) = XLGTNLELOJe1) + XLGINL(OJ,3) *®((XLGTNL(J94) -CGCG(I))**2) + 


meee OS S35*AAAF(TH1L**3) + THL¥AAA¥( (CGCG(II )—0.5*fHl )*=2) 


RGYR = SQRT (XMINERCI) / FFF) 
WRITE (6, 961) J 

IF(RS5GYRA «LT. RGYR) GO TO 320 
JzaJ5+ il 

See 1o 321 

CONTINUE 


SATISFY REQUIREMENTS AS TO STIFFENER STRENGTH. 


So PAN = 0.577 * FRM * 12.0 

PVALUE = (13392.857 * (THL**3)) / 10.28 
STALL = 38000. / 2240. | 

DO 324 I = ly 49 





mee EVEL 


ONOM 


a9 


325 
326 


moe | 
328 


1324 


324 


453 


336 


337 
ao 6 


Od 


=e 
O, MOD 9 MAIN Alem mow a2 19/43/58 


Se ANd I aseo. O20) Gal tomase 

Po CeOMGL (1¢2) sch. 0.0) Go, raeeae 

[EOC XLOTNL(J95) + THL) - CGCULI)) se Geeetec cmon 
ARM = CGCG(I) 

GOmNoNs26 

ARM = XLGTNL(J,5) + TH1 - CGCG{(TI) 

Tiamiele Oe SPAN(L} <GT. 50<*THI) GO mame 

AAA = 12.0 * SPAN(I) 

GU TO 328 

AAA = 50.0 * THI 

CALL HUWTR(A3HEEL,XLONGL( 1,1) ,91,HLAMDK,HIDFEL yNBELTS,XLLBP, 


1 XLONGL(IT,2),HA) 


WRITE (6, 953) [Ty HM 
eos = 0-445 = Hi/ 2240. 
Saint = 215. * PRESS * SPAN(I) * FRA 


Setot = (.93 * ABS(XLONGL(II,2)-( (12493713203) 2607251 25)7 
sazAlLL = STALL —- SFLEST 
meowoo = SMUMNT / ST2ALL 


XMENER( LT) =XLGTNL( Js 1) +XLGTNU( Js 3) *( (XLGTNL( Jy 4)-CGCGIL))*#2) + 


Pee OS 333*AAAK(THL*®*3) + THL*AAA*((CGCG( 1)—0.5*TH1)**2) 


ARITE (6, 961) J 

Pe (AMINER( TT} /ARM).LT.~SMODMN(I)) GO TC 1324 
TF ((XMINERCT)/ARM) .GT. REQMUD) GU TU 324 
Jo J + 1 

WRITE (6% 961) J 

Gil TO 329 

CONTINUE 


SATISFY REQUIREMENTS AS TO STIFFENER CRITICAL STRENGTH. 


Poe 5330 w= Ls 40 

TE (SPAN(i) -EWQ. 06.0) GO TO 451 

IF (XLONGL(I,2) -EQ. 0.0) GU 10 451 

Mel Zs *SPAN(I) «GT. 50.*TH1? GO TO 337 

AAA = 12.90 * SPAN(T) 

GO TO 338 

AAA = 50.0 * TH1L 
XMINER(DT)=XLGTNL( J, Ll) +XLGTNL( J, 3) *1 (XLGTNL (J 24)-CGOCG(1))**2) + 


foe O S33 3*AAA*{( THL**3) + THL*AAA*((CGCO(1TI+0.5*1H1I*¥*2) 


BVALUE = 13392.857 * XMINER(T) 
BETA = FRM / SPAN(T) 


GAMMA = BVALUE / {(SPAN(I) * 12. * DBVALUE) 

DELTA = ALGINLC Ss SNo/ A12.06 * SPANCI = 

SUMTN = ((3.1416**2)*DVALUE)/(144. * THL * SPAN(I )**2) 
BETAPL = 1.0 + SETA sa 

petal = 1.93 ABSI(XLONGL(1,2)-((7.93/ 136937 426,23125))} 
meer St = 1.25 * {STLEST + SEZEST) 

TOLSTR = SUMTN * (BETAPL¥*2 + 4.0* GAMMA) /((BETA¥*¥*2)¥*(1.0 + 





me EVEL 


330 
451 


moan 


) 335 


18il 


340 
810 


=) Oe 
O, 4D © MAIN 2 emo o2 19/43/53 


fe * DELTA) ) 
WRITE (5, 959) [, XMINER( 1) 


tee TOL ST Te CRiTST) CO Jeger 
wea 5S + 1 

WRITE (6, 961) J 

GO TO 335 

CONTINUE 


WRITE (6, 961) J 
BALCULATE THE TOTAL MOMENT OF INERTIA GPE THE MioShie See. 


CALL PHINER(THL »s3d3LMOM,AREAPT, XMOMIN,XINER) 

WEIGHT = 6.8 * AREAPT 

e335 1 = ley 5 

XLNGTL(2,10) = XLOTNL(J,T) 

K = IL 

SLOPE2(K) = (XLONGL (Ke 3)-XLONGLI Ke LIS (XLONGL(K,2)-XLONGL(K,4)) 
eee ALNGTL (194) *(-SLOPEZ(K))/(12.*SGRT( Teepe at 2 ie 
ZPOINT = XLONGL(K,2) + 222 

BASEMT(K) = ZPOINT 

WRITE (6, 962) Ky BASEMT(K) 

DO 340 K = 2% 40 

Meeek «Gl. ILONGL) GO TO 810 

MemtxeUNOLIK,2) ~EQ. 0.0) GU TD 810 

Meeetk «ile [COUNT) GO TU 1811 

IF (K .GT.e ICQUNT) GO TO 1811 

BASEMT(K) = 0.0 

GO TO 340 

CUNTINUE 

SLGPE2(K) = (XLONGL(K_3)-XLONCL IAL) DS OXLONGL (K_y2)-XLONGL(Ky4) ) 
PeeeommereNOTL (2,4)*(-SLOPE2(KII7112.*50dRT( 1. F(SLOPE2Z(K) -+2e 
ZPOINT = XLONGL(K,2) + 222 

BASEMT(K) = ZPOINT 

WRITE(6, 962) Ky BASEMT(K) 

AREAPT = 2.0 * AREAPT 

BLNUM = BLMOM * 2.0 

XMOMIN = 2.0 * XMOAIN 7 

K = 1 

ADINER = XLNGTL(1,3) *BASEMT(K)**¥2 + XLNGTLO1,¢2)/144. + (XLNGIL( 1,1 


L) ~ XLNGTL( 192) )*2.*ABS(ATAN(SLOPE2(K))/(144.%3.1415)) 


XMOMIN = XMOMIN + ADINER 

BLMOM = BLMOM + BASEMT(K)*XLNGTL(1, 3) 

AREAPT = AREAPT + XLNGTL(1,?3) 

DO 350 K = 2, 40 

IF (XLUNGL(K,2) ~EQ. 0.0) GO TO 351 

PeetK «GT. ILONGL) GO TO 351 

ADINER = XLNGTL(2,3)*BASEMT(K) **2 + XLNGTL(292)/144. + (XULNGTL(2,1 


1) — XLNGTL(2,2)) *2.*ABS(ATAN( SLOPE2(K))/(0144.*3.1416) ) 





as, Sere 


MeLEVEL Of HGD O MAIN DATES = 66/13 2 LYS437 53 
Peace CU mmNOL) GO 1a aoe 
Nie sb eee COINI) GO Tomee5o 
S>3 AMIMIN = AMOMIN + 2. 


Sie we ee EMUMet 260 
AREAPT = AREAPT + 2. 
GO FO 350 

mee (XLONGL(ILONGL,1) -GT. 0.0) GO TG 353 
AMOMIN = XMOMIN + ADINEK 
BLM¥OM = BLMOM + BASEMT(K) * XLNGTL(2,) 3) 


G 

C 

0 * ADINER 
* BASEMT (K) #KENG TIeG2 yes 
O * XLNGTL(2,3) 


AREAPT = AREAPT + XLNGTL( 2) 3) 
Seo CONTINUE 
= BLAUM / AREAPT 


Bol ZNAXIS 
: XINER = ABS (ZNAXIS*((BLMOM**2) -— AREAPT*XMOMIN)/BLMGM) 
REQHIN = 74100. * 26.231247 / 13.93 
DO 3807 KK = ly 40 
Meet oPAN(KK) .GIT. 9.0) GO TO 807 
SPAN(KK) = C.0 
807 CONTINVE 
IR = 1 
meee (6,5 933) IR, SPANCIR) 
DO 600 IR= 2, 40 
600 WRITE (6, 934) IR, SPANCTIR) 
804 ARITTE(6,912) 
DQ 805 KK= Ll» GO 
806 ARITE(6,91L1L) KK yXLONGLOKK_1),XLUNGL(IKKy2)y>XLONGL(KK,3), 
L XLONGLOKK,4) »ySPANCKK) » SHODMNIKK) 
WRITE (6,915) REQMIN 
WRITE (6,916) XTIiNER 
WRITE (6,917) STICRK 
ASTRSS = 74100. * ZNAXIS / XINER 
Mmebre (5,516; ASTRSS 
ARITE (659899) sT1LCRO 
popkos = 594400. * (26.231247 — ZNAXIS) 7/7 XINER 
mete (6% 920} BSITRSS . 


C 
C ADD IN THE WEIGHT CONTRIBUTION OF THE MAIN TFRANSVERS& FRAMES. 
c 
moegio = AREAPT * 3.4 + 2859.*(1.0 + (0.8333=(FRM-—8.)78.)) 7 
fee e RM) 
WFRAME = WIOTL3 - 3-4 * AREAPT 
WTOTAL = wIUTL3b / 2240. 


WRITE (6,921) WTOTAL 

Met le (6,922) wWIOTLB 

WRITE (6, 1921) WEIGHT 

WLONGL = WTOTL3 - WEIGHT —- WFRAME 
WRITE (6, 1922) WLONGL 

Meee (6,1923) WFRAME 

WRITE (6, 923) ZNAXTIS 





421 


402 


403 
405 


406 
407 
408 


401 
410 


409 
413 


412 


411 
415 


414 
416 


404 
418 


417 


420 


ig ete) oO MAIN DATE 
WRITE (62923; Je XULNGILI( 2,37 sXUNGILI( 2 yo 
Am Me (ibsG72* AULNGIL( 1s 335 XII oe 


ARDITE (&, 963) TH! 

PES tere Kobe te A OURS SI GUT 47) 
Persil Cr wile OB STRS Sino h iG soo 
Aid s= TH) 

WRITE (5, 925) 

Pemolila—= 0.5) 401,5...402, 403 
fi = 06525 

GU TO 4006 

IF (FHL -— ©C.875) 404, 405, 406 
THL = 0.9375 

GU TO 400 

ial = 1.0 

GO TO 4900 

WRITE (6, 926) 

GU TO 420 

mei tdl — 0.3125) 4095 410, 411 
tri = 0.434315 

GU TU 490 

fie (THLE — 0.28125) 412, 413, 410 
THL = 0.3125 

GO TO 400 

TH1L = 0.28125 

GO TQ 400 

[F (Tdl - C.375) 414, 415, 416 
THL = 0.4375 

GO TO 400 

idl = 0.375 

GO TO 49C 

al = 0.50C 

GU TO 4909 

Mere —~ 0.75) 417, 418, 405 
Pal = 0.875 

GO TO 400 

THL = 0.75 

GO TO 400 

S10 P 

END 


O32 


L9/%3/ 56 
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INMNOOCOCAAOASAOAHKUMUMAUUUUMUU SHH HLH HHA HF WWWWWWWWWW NNN NNN NNN DED PR RR Re ime ee 
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IMM ODODWNAUFWNRKOOWMWNOUFWNK DOO AN DAU FWNHKODOANAMNHWNRP DOAN OAUYMUAWNROCAN OU FF WNP CO 


_ rm 


ro 


PTDATACI»J,1) 


0.0 
O.200006 
G.4000C0 
0-S000C0C 
0.800000 
1.000000 
1.200000 
1.400000 
Peo 7S 
em 9 iy, 
2-000000 
2e«2G00C0 
2400000 
Ze 2755 
Zed DIDO" 
Case IIdT 
Sebo 9999 
32399999 
B02 299G 
Berl 99995 
4.0000C0 
4.400006 
4.199997 
Sal oog79 
ae D392 5 
9 9° 
6.399998 
6.199995 
fal I999T 
1.529997 
8.0G0000 
8-400006 
8.799997 
al GO999 
Soaps sc) s)a' 
2697995996 
poss 39938 
EO. (99995 
P2959 7 
Lele 2 oo 
12-0CCVC00 
12.194790 
Zoe OU 
12.584370 
Peat a Loe 
P2691 3946 
PS oa iet 
3.364552 
bSeo59 G5 17 
136 (55109 
13.94/7900 
14.153110 
14.358317 
FAs G22 27 
14.763739 
14.973948 
15.179156 
15.334368 
15.5695 76 
15.7194755 
16.000000 
L6-L17676 


sas -% fC ff 34 9 


= = 
PLOATAG i co 


0.0 

G 2004743 
0.009515 
O.014343 
OmG019255 
0.024282 
0.029449 
0.034737 
0.040322 
0.046084 
0.052099 
0.058492 
0.065033 
O02. 072036 
0.0/9454 
0.08 (355 
0.095756 
0.104713 
0.114281 
0.124493 
0.135401 
0.159419 
0.156407 
O.2 16575 
Ge 249332 
0.285289 
0.324254 
0.366238 
0.411250 
0.459301 
0.510412 
Uv2+564582 
OsO22689 
0.685097 
Qe 22592 
0.825849 
O. 9055338 
08997233 1 
1.086922 
1.189965 
le 30Z2025 
1.360265 
1.420801 
1.483309 
1.549357 
Peo 520 
1.688371 
Lefora 
1.338410 
L.91/7747 
1.998631 
22088647 
221822384 
ZacilZiot 
223381433 
22481440 
220908 
22/1365% 
Ceo 54350 
2960419 
3-104218 
3.182606 


+ Sf ye eS _ hee 


PTOATA(I,J5,3) 


OeZuUe 30 
OS2oU057T 
Oe2uCcuss 
0.200059 
Veco Se3 
Og2600S5f 
0.200071 
Oe2ODU 15 
J. 200643 
UVe2U0052 
Ge200099 
O<200T10 
UsZCOlL2Z1 
Owe20013¢8 
OL. 2001 >> 
Geczuuly ¢ 
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Be MAIN PROGRAN COSTDATSA 


1. DESCRIPTION 


Introduction 
Main program COSDATA carries out tre cost calculation 


’ 


memeone Madsaip Section of DD-931, usins as aupuvs mucin 
the design information generated by vorosran RULSCORE. 
Materials cost data, extracted frou [3],are combined with 
Various handling and erection costs to generate a total 
Beau, per root length of midship section, for whe con- 
SurucoLon of DD-931 primary hull structure. 

For reference purposes, the acquisition cost data for 
HTS structural members are listea in Table I¥on the fol- 
lowing pages. These members, when procured tnrough the 
Beceral supply system, are not Giscounted in puece for 
quantity acquisitions. | 

The methods used by the cost estimators of the Boston 
Naval Shipyard were employed in main program COSDATA. AII 
these charses are based on the cost of one man-hour of work, 
including yard overhead. For the purposes of this investi- 
ation, one man-—hour has been arbitrarily assumed to cost 


can 
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Main progran COSTDATA tales the series of intervals 
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TABLE IV 


AVAILABL* PLATZG 27 Doe oes 
CRIPTION AND ACQUISITION costs 





Plates 

Width Lenetna Cost Cos 

Gri) (Ft.) “Povey scee ee 
8 oe) » 169 Ii 1,050 
g 29 27 1.181 
5 20 128 mee 
S 29 305 i oie 
6 29 238 Oe 37 
8 29 353 epee 
8 29 383 oa 
8 20 254, ie 507, 
5 20 161 teow 
6 29 231 Laos 
8 27a 333 1,652 
6 29 394 2.264 
8 33 569 2.158 
5 20 2a, a3, 
8 a0 oe 2322 
8 20 p2e 2.462 
6 29 8 2.796 
5 20 206 Bo 
; 29 fs ee 

35 Joe 3.6 

8 20 614 ee 
8 16 500 3-905 
6 20 1.98 15 
8 29 1030 Lp udp 

L5 25.16] 1953 5.19 
8 20 720 lb 50 
8 20 WE 1. 53 
5 20 1 “81 
8 29 1233 ee 
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TARLS IV = Contiaved 
: x 
onaoes 


; 3 Weight 
No. 2) (Ebay tace 





0 COONIO™—Wn fe OH 


encth of 40 feet. 





S00 


beuween longitudinals for haif the midshiu section and 


cenerates a set of intervals for the entire section. Thi 


9 


HS designed to facilitate the later calcula Giemsa 
locations to insure a clearance of at least four inches 
between any given butt joint and a longitudinal~plating 
intersection. 

The cost of welding any of the various possible size 
plates is calculated, using the input value of cost of butt 
welding the riven thickness of shell plating (man-hours 
per foot length of weld). 


Dg 


* 
Plating Thickness Cost of Butt Welaf4] 


(Inches) (Han-Hours ver Foot) 
225 0.38 
Oneole> Onna 
O2.3125 Oe 
©. 34375 0.5 
0.375 O25: 
0.4375 C26. 
©. 50 Cers 
0.625 1.22 
e275) i650 
C2875 Ziele 
aa 2 eoee 
1.00 242 


The program next ealculates the number of plates re- 
quired to go around the girth of the midship section. The 
alternate olate sizes of the apvropriate tnickness must be 
emraneed in ascending order of COSt per Suuarve 1oou area. 
The first plate is centered over the keel, and successive 
Dlates are added in vrosression around the girth of the 


midship section. Should a conflict arise in that a butt. 





Tois. information 1S fcr WOLrs On cea ema 
Geshe eulle. COndlLucLOns. ther conditions are normal anc eo 7olece 





a7 


joint is too near to a longitudinal-plating intersection, 
the algorithm first eve ce select the next available 
plating size. if this proves to be impossible, then a 
cut of 0.7 feet is made from the end of the plate. The 


following charges are made for cutting plates: 
* 


Plating Thickness Cost of Cut Type 
(Inches) (Man-Hours ner Foot) Cit 

One 5 205 Flame cut 

0.375 O206 Flame cut 

0.50 05.07 Flame cut 

nol > 0.08 Flane cut 

O67 5 0.09 Flane cut 

Oper 5) OBO Flane cut 

| 00 Oeins Flame cut 


The net cost of butt welding the plates is next cal-— 
culated, given the total number of plates of each indivi- 
dual size employed in the midshipv section structure. the 
e@eu0OL any plate cuts is calculated, Using Unespmey oper 
listed cost data per cut per foot plate lengtn. 

The cost Ke rolling the plates, using average man- 
hour charges allocated by the Boston Naval Shipyard, based 
on a plate length of twenty feet, is computed nexv. Tne 
standard charges for such plates (twenty feet long) are 


ao ctoOlLlows: 


Plating Thiclness Cost of Rolling 
(Inches) _ (Man-Hours ver Plate) 
O225 2.9 
Oo. 50 29 
O27) 369° 
oe a0 





= e: °¢ a. - : 
Information provided by lir. Joseph Palange, a Planner 
and Estimator with the Boston Naval Snipyard. 








LVo= cal Mies ne ICos are evaluated, using 


fy) 


n 
arbitrarily snecitied “nix” of stagime@eoyoris ence 
platforms uventy feet. high, two fourteen feet high, tw 
eignt feet high, and two three feet high. Again, normal 


Boston Naval Shipyard cnarses based on staging five feet 


Oe 


long are evaluated on the is of the per-foot length 
COStS. 
The acquisition cost of the plating is computed, 
using the input data provided the vrocram and the de- 
termined nunber of plates employed of each siven size. 
Eaesexpense imvolved in the procurTonody. cumemm a. 
and welding of longitudinal wide flange sections is next 
calculated. The previously defined cost criteria for plate 
cutting are used for evaluating the expenses involved in 
cutting. the shape flanges. text, the cost of welding the 
longitudinals is evaluated, using normal Boston Uaval Ship- 
yard charges similar to those described in terms of the cost 


of butt welds: 


Longitudinal Welding Cost 
Number (Man-Hours ver Foot) 
iL Oar 
2. . 50° 
3 a. 
L Or 
5 0.42 
6 0.34 - 
8 1.04 | 


Additionally, for all welding operations, certain. 


fixed cnarges are added. These allow for making ready 





: ee 


putting away equipment, Wate (ome ite a Coe ae 


(2s 


an 
penetrant for wella insvection, andwsus gmteor- 7 meee 
heat treating welds. 

An approximate evaluation. of the cost convribution 
of. the transverse frame structure is made, estimating that 
Bne cost of the transverse frame, on vee average, is 
Peveuuy per Cemy tiac of the Centemiimem ar presume -ocl. 
per foot Length. 

Unce all trese individual cests arotcatculawed esc 
Gecal cost oi the midship section structure, per Loot 


length, is determined. 


mnouts 
ovmbol Meaning 
CWLD?i Cos Cheouuu vere. anne 
5 per foot length) 

Tee Plating thickness. (Inches) 

XLGTNL The number of longitudinals in 
the midship section. 

CHGLANE Tre cost of ome tMan-—nour of 
works. (Dollars) 

Coa mh: The total eostoemecce icceu 


structure. (Dollars per 
foou lengmay 


TOTSPN The total nmidsnip section 
girth. (Feet) 

CROLL The cost of rolling a plate 
twenty feet long. (Dollars) 

CSTLGL The acquisition cost of a longi- 
Tus nolo lleac Der TOO 
Length) 

SPAN(TI) The intevvatmvenlonai tudinal (1)= 
(Feet) 

CWLGTL The cost of welding a longitudi- 


Mal. (han-Hours per foot 
length) 





PLT(I,2) 
PLT(I,3) 
CLGCUT 


FRE 


Balculaced ites 
| Sov7mbol 
TSPAN(T) 
CWaLD(T) 


DIST 

DSUMS 

Gully Geter, > 
NOCUT/PTCUT 
CPLTWD 


CPT CUT 
ITCROLL 
CRIG 


CPLING 
CTLGIL 


 OWLTNL 
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* es 
1 -~ 
Os 





Width of plate(@iJa) (Feet) 
Length omomere cm ete e.) 
Cost of slate Gl) elotsaay 


The cOSt¢ Of GUbgle = ene it anzea 
of a longitudinal. (Man- 
Hours per foot) 

Transverse frane spacings. 
(Feet) 


Meaning 
span between longitudinals, for 
encilremsecumemn. (Feet) 
Cost of welding the plating, 
per butt. per foot length. 
(Dols aac 
Location of plate butts. (Feet) 


Locations of longitudinals. 
(Feet) 

Wamer of Dlawesmcl s.et7) Eee 
Guired for aigenip secure 

Number of times plates must 
be cut. 

Total cost of welding the 
plating, per foot length. 
(Dollars) 

Total cost of cutting the plates, 
per foogeuens ua. ee lol aes 

total cost ot rolling the plaves, 
per foot length. (Dollars) 

Total COSt One Gove S 
rigging, wer toov length. 
(Dollars) 

To Gala comka | Teneo ct OL pume 
plating, per foot length. 
(Dollars) 

iotal acquimsiusemmecocu OL Ute 
longitudinals, per foot 
Lene ae Doth ars } 

LOval Welegimeeceosy, for the Lon= 

LUC iatee Der fool Leneun. 
Dollars) 
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CTERAM 


Output 
oyribol 
CloraL 


Sanple Input/Ourourt 


~ 75 - 


the flanges : 
Udine ioe bone tac 
foot Length) 

Avproximate cost per ie GS casoee 
lengetn for the transverse 
‘frame. (Dollars) 


Mean ame 


rete cemrmmentgne_sahoe 


Total cost Gi putas vide 
midship section, per foot 
length. (Dollars 


(Compucer tccumcuep 


7 ee 230 ae 


Input: PLI(I,1) © PLE@ S23) eee Ge) 
=a 10 33.0 959.00 
ee Oe 2050 614.00 
ae ak ae caver 
CWLDLT 1.60 tian-Hours/Font 
Ee Oa Inches 
ALGTNL Lie 
CHGENE Ve Dokters ian Olas 
COSTKL 2 DO Dol a2 Aes 
TOTSPH 125.95 reet 
CROLL 3290 Dollars 
CSTLGL « 3.90 Dolmiewe7 A065 
SPAIN(TI). SPAN CI+1) SPAT CI +2) 
a ee 77 Le 751 1853 
ie eee 1 LO oe 6.935 
ieee 6, oo 9.050 Bee 
CVLGTL 0.66 Pate eomims/ Doo G 
CLGCUT 0.14 Man-Hours/Foot 
FRI 8.00 Feet 
HubpuiesmelnOtlk § 1466.77 Dollars 
Fundanental Bauations 
CWELD(I) = CHGMITH x ((2 x (PLT(Z,1) + PLT(I,2))) =x 
(CWLDMH = 12.12 + 0.14) + 5s) 
Ea 


im 





rz,2 





DIST - 0.7 + PL@(I+1,1) 
(If too near @ tongisacern ie) 


CPLTWD CWELD(1) : 





= < XLGLL + CWELD(2) x XLCL2 + 
CWELD(3) x XLCGL3 + CWELD() x xEGL + 
CWSLD(5) x XLGL5 _ 
GPECGUT =eeeLCUL-- x. CEGiaaeass 
: OO) 5: el eee )) 
| (0.05 Onlol aaa a 
TCROLL = SOFS# x CROLL x (XLGL1 + XLGL2 + XLGL3 + 


XLGL4 + XLGL5) 
CRIG = 0.4 x (20. + 12.44 9.7 4755) eC 


a GL x XLGLI 4 REEC2Re eee ceene aan 
See sea oy PLT 2 
PENG. 3) << XLCL3 | PER @a eee aman 
ae Ge ie PLICG,>) 
Pee as SOG 
PLT aa 2 


CTLGTL = XLGTNL x CSTLGL 
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: 
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CEGCUl ys ALGH Vs eCee 


cTrram = O-7 = COSTKL x TOTSPE 
BRM 


CLOTALS = CPLiWwD +. CPLICUL ~ = ot CROnis 2 Ch Casas 
| CPEerIVa + CILGIL «+e Cyt s C CU ima 
CTPRAL + COSTKL 


Sanole Calculation (Refer to program listing, flow chart, 
and printeus of saymeal) commute. 
run, following pages) 
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C. SUBROUTINE TSLEC 


ia 


1.. DESCRIPTION 


Pmacroguction 

Given the minimum tolerable spacing of longitudinals 
eacmume cdesien stress criteria, this subpredvimicme mi cumaec. 
the required plating thickness using criteria for tne 
critical stress and tertiary stress levels. These two 
thicknesses: are then compared, and the greater selected. 
This exact value of thickness is then used to select the 
minimum standard plate thickness that will satisfy the 
Mes2gn requirenents,- and the filyatmum Spacing is modaiica 
by the ratio of the selected thickness to the required 
thickness.. This span is then used as the initial longi- 


tudinal svacing.. 





Invuts 

ovmbol Meaning 

WOBMIN Minimum permissible longitudinal 
spacing. (Feet) 

ST1CRK Maximum vermissible stress at 
keel 2 ae lone, ana 

Seo. Estimated value of secgndary 
stress. (Tons/In.°¢) 

SG}ULT Yield stress gt the plating. 
(Tons/iIn.<) 


FRM Transverse frame spacing. (Feet) 





Calculated Itens 


Symbo al 





OGHACR 


ABAB 
ClCH LL 
CCL 


THPRIM 
PRESS 
C3CRIT 


ST3MAX 
Gee 


Outout 
| Symbol 


EE 





W53ACT 


Calling Sequence 


eG 


Meaning 
Limiting stress intensity, 
as|1.25 x_(STl Clee) 
(Tons/in.*) 
Plate aspect ratio. 


Coefficient used in calculating the 
critical streneuieon sine plating. 

Intermediate calculation used in 
determining the required plating 
thickness based on critical stress 
Cag emia, 

Plating thickness required to satisfy 
critical stress criteria. (Inches) 

Hydrostatic vressure at Keel. 
(Tansy la 

Coefficient usec in calculating the 
tertiary stress SI ae of the 
jee stole Wolo tsy// ay. 

liaximum tolerable fe ghe 
tertiary erescc,  Clome lone 

Intermediate calculation used in 
determining the required plating 
thickness based on tertiary stress 
criteria. 

Plating thickness required to satisfy 
tertiary stress criteria. (Inches) 

The greater of TEPRiMiGr THTER. 
(Inches) 


Plating tnickness selected. This 
is the least existing thickness 
that exceeds the value TH. 
(Inches) 


Tolerable longitudinal spacing for 
selected plating thickness. (Feet) 


Call TSLECT (W5BRIN, STLCRK, STOEST, SGHULT, FRM, 


THL, W5BACT) 





eamole Inout/Cutnut 


ae 


Cu Guus. 


Fundamental Bauations 


sample Calculation. 


ote 


Some 


(Computer test run} 


WORMIN 1.667 Feet. 
STLCRE 7.93 Tons/In. 
ST2EST ie Tons/iIn.2 
SGLULT 20,98 '  Tons/In.* 
FRI! 8.00 Feet 
eeu. Ome ses Inches 
WOBACT 1.769 Feet 
ABAB = HL 

W5Shin 


CCl = 
THPRIN = 
PRESS = 
CC3 = 


THIGR = 





(Refer to subroutine @iceame anceen len 
chart, following pages 


SGMACR = 11.58 
ABAB = 4.80 


CL Chil ace. 





Tapa Seo 
= 0,230 


Hi = 30,23 





aOR 


PRESS = 0.00501 
C3¢nl = 0N527 


erste = 11.7) 


z Leva | 
ee \/ sree ceae OO Ol 
ane 











Pe oe = 0,264 
Dea ao F 26 
Pre =eOeeou. 


ii. =Oeeol 25 ine aes 
Oncol ee - 
W5BACT = Se 2 1Oe7 
= Bie 77 feet 





0 3 


101 
104 


102 
1C6 


€05 
180 


903 


901 
904 


B02 
980 


600 
16 
405 


Crug LScecr DASE. = sole 19/43/53 


SUOROITINE TSLECT( AS 6MIN,STLICRK,ST2ZEST, SOMUL 1 yet ee yee 
SUMALR = 1.25 * (STICRK + ST2EST) 

ABBAS = FRM / WS3MIN 

mee ioe el 6) 7 0l + FOS 7 OS 
Clrexti.=~7.0 

GU TO 730 

IF (AsAB - Si) {O2, 104; (04 

Beg Ril = 7.0 + 0.4 * (17.0 = ABABI7aRS 
GO TO 730 

[ienono — 169) 705, (06, 7C6 

ee ii = 7.4 + 0.7 * (3.5 = ARABI leo 


GO TO 780 

went = S.i1 — (AsAB = 1.9) / 129 

ADULIN = CICRIT * 3.1416 * 3.1416 * 13392.386 
SeubtN = 10.9 * SGMACR 


CCl = SQRT (ADULIN/BDULIN) 


Spe AL = STICRK 

met = (wOS3MIN * 12.) / CCl 
feenIN = C.0 

eeiMIN = 0.0 

Mem hlARY STRceSS CALCULATION 


Somestl = 0.5236 
Di = 26.231247 
HIAMDK = 4.0 


HIDFL = 14.5 
XL1bP = 407. 
MBELTS = 1 


BALI HOWTR (CASHEEL,YPTIMIN, O1,HLAMDK,HIDFL, NBELTS,XLisP, Zrii 
PRESS = (0.445 * HM) / 2240. 

Meet ABAB — 1.4) 9O1L, 903, 903 

C3CRIT = 0.0627 

GU TO 980 

IF {ABAB - 1.2) 902s 904, 904 

Meeeit = 0.0015 + 0.0012 * ((ABAB = 1.2) 7 5Ge7Z) 
GO TO 989 

meernti! = 0.057 + 0.0009 * (ASAb = 7.0) 

SISMAX = SGMULT - STICAL - ST2e5T 

ese = SORT (ST3MAX / (5.46 * C3CRIT * PRESSaD 
THTER = (12.0 * W53MIN) / CC3 

IF (THTER «GF. FHPRIM) GO TO 600 

TH = THPRIM 

GU TO 16 

fae TATER 

Pet ttTH —- 6.375).GT. 0) GO 10 401 

Mamet tH - 0.25) »«GT. 0} GU FTO 407 

THL = 0.25 

Ga 710 9OO d 





Seo LEVEL 


407 


409 


411 


413 


401 


590 3 


905 


507 


5A 1 


213 


501 
900 


<onaae 


Oe MUD O ' FTSLECT 

bee CTH: = 3825). 2G ie 0) Cure 
Tlie =" Gees Les 

GoSTG 900 

PEt tle=— 023125) <GT. O12 Co. loeom 


Tie 312 

GO TO 900 | 
Meet eS Oe S43 75) 5.61. c0) GOsmiOaes 
fimieeas O65 34315 — @ 

GO 710 900 

Habe = "06.375 

GU TU 990 

mite 100) 6.67.0) GU 10 501 
Wet — 0.4375).61 . 90) GU. 10 503 
THL = 0.4375 

eletO 900 

Paetdo- O20) sl. 0) GU TO 505 
THL = G.500 

GO TO 9V0 

Memeeit = O4025) «Gis 0} GO TO 507 
al = 02625 

GU TO 900 

Metre ~ O0./5).G).-0}) GU TG 509 
THL = 0.75 

GO TO 900 

Pati > C.375) .67.° 0} GO TO Sli 
THL = 0.375 

ou 10 900 

Meth =~ 0.93/75) «Gl. 0) GO 10 513 
fit = 0.9375 

GU TO 900 

THL = 1.000 


MereAl ("KEG eTRED PLATING THICKNESS EXCEEDS ONE INGA 


WRITE (6, 17) 

WSBACT = (THL * WSBMIN) / TH 
RETURN 

END. 


DATE 


— 
= 


611372 


L9/743755 








START 


Cade or or 
SGHACR, ABAB 


Cail ciulace Crenur 





Determine CLCRIT (a function of 
ARAB) 
Calculate: Calculate the re- 
CCl, STICAL, GuUlreGe Vauciine se 
and TEPRIM iGo e parse aes 


SUrese) GCrilve mor 


Calculate PRSss | 


Determine C3CRIT 
(a function of 
ABAB). 


Calculate C3CRIT 





FICURE V 
SUBROUTINE TSLECT FLOW CHART 








Calculate: Determine the requir- 
ST3MAX, CC3, od platames Thiok= 
2 Ge eee ness from tertiary 

stress criteria. 





velect TH = Select the. .required 
preater of plating thickness. 
LoPR and Lula 





Adjust THL on select the least 
basis OL La. existing plavine 
Gude te WOENCT. Chi chness: Gia 





Satisfies the TH 
requirenent. De- 
termine the allow- 
able longitudinal 
span. 


RETURN 


] 


RiGunee ie Coleco 





* 
De SUSROUTINE aim 


maprecduction 
ins subroutine calculates the maximum nvaros ta cic 
head of water existing at a designated point on the shell. 
Three loading conditions are evaluated, using current 
procedures employed by the Naval Ship Systems Command in 
the design of snips: 
I. The maximum head is calculated for the 
effects of the full load draft witn half the 
height of a standaru wave profile superposed. 
2.. The maxinum head is’ calculated for the 
condition of the ship at full load draft heeled 
over some specified angle. In’ the case of this 
analysis, the heel angle is fixed at thirty 
degrees. 
3. Finally, the maximum. head resulting from the 
superposition of a specified desifn head of water 


an. the main deck is computed. 





* 
Subroutine HDWIR is based on a subroutine of the same 
name developed by the Applied Mathematics Laboratory of the 
David Taylor ifodel Basin, Washington, D. C. 20007. 





Cen 


After the individual heads area Cevert aie ocean 


C2 


Various conditions, the maximum value is selected as the 


S2upUG 220m toe subroutine. 


inputs 

Svmbol | Meaning 

A3HEEL Specified maximum heel angle. (Radians} 

B3P Half preadta om mots cee 

DL Depth of hudiectcem 

HLAMDK. specified design head of water above 
Hein dec weeetceo 

HLDFL Design full load draft. (Feet) 

NBELTS Number of voints. (= 1) 

XL1 BP Length between perpindiculars. (Feet) 

ZK1P Height of point above keel. (Fect) 


Calculated items 


oynbol Meattane 
SMAMDK Eead of water due to desien head of 

water on main deck. (Feet) 
H-SESL Head of water due to heel. (Feet) 
HMO Head of water due to wave profile. (Feet) 
ee Draft due to standard wave profile. (Feet) 
TH Draft due to head of water above main 


deck. (Feet) 


Output 
Symbol - Meaning 
Hit Maximum head of water to point. (Feet) 


Calling Seauence 


AanEeas>+-tntpeeninentrsuremastal> 


Call HDWTR (A3HEEL, 33P, Dl, HLALDK, FLDFL, uSEL7s 
XLIBP, ZKIP, Hi} 


— 





oe Ore 


Sample Input/Outout (Computer test run) 
aoe Aa a 0. Saco nacaiee 
B3P 39.93 feet 
DL LOe80: feet 
GILALDK eo feet 
HLDEL ZOOS feet 
NBALTS a 
ALLBP 530290: feet 
ZK1P 14.00 feet 
GOL Gis HM 30.38 feet 


Fundamental Hoauations 

Hl = HIDFL + 0.55 x VW MBP 

iio = HL ~ ZKIP 

HMHBEL = Dx Cos (1.5708 - B — A3HEEL) 
B = Arctan pL = ZkIe 
D= Se ee 

HMAMDK = THM -— ZAKUP 
THM =: DL + HLAMDK 


Samole Calculation (Refer to subroutine listing and flow 
chart, following pages) 


HL = 26.00 + 0.55 x 24.08319 
= 4.58 


e@ 


EOn= 29 2458 — 14.0 


= 25. 24.58 


oO 
it yy 
kK 
is 
Lu 
+ 
i 


B= Arctan (0. Jem 
= Ones 


HMHEEL = 41.53 x Cos (0.75%6) 
= 30.31 


HB = HuteL = 320.31 feeu 





mo LEVEL 


OOO 


to) C) 


Grerec) 


AOaM 


19 
18 
15 


Lo 


ee, 


10 
ok 


l2 
100 


ar 


=o 1 ieee 


J, AOD O HOWTR DATE = 67132 


197 43/58 


SUBROUTINE HIWTRCAZHEEL GO 3P,0L,HLAMUK,HLDFL »yNBELTS»)XL13P,ZK1P,HM) 


GALCUMUIt DRAET 1G SIMNDARD wave Hetoan 


— 


flesemlDEL +.0.55-=590R 1 (XELLEP) 
eee Po = 1) 14 2c 

Bus = Hl £ZK1P 

Gu. fO. 3 

HMO = 0.0 


CALCULATE HEAD OF wATER OUE TO HEELED WATERLINE 


[IF (ZKLP — HLDFL) 4 97)5 

D = SQRT(B3P**2 + (HIDFL - ZK1P)##2) 
IF (83P) 19,19,18 

eee= 157108 

ewe 1 20 

B = ATAN ((HLDFL - Z2K1P)/B3P) 

f/MeotB = 1.5708 + ASHEEL) 15, 16, 17 
HMHEEL = D*¥COS(L.25708 - ABHEEL - 3) 
eo TU 10 

HMAHEEL = D 

SO FO 10 

HMHEEL = D*¥CUS(B - 1.5708 + A3HEEL) 
cari 10 | 
D = SQRT (B3P**2 + (ZKLP - HLDFL)**2) 
B = ATAN ((ZKLP - HLDFL)/33?P) 

[F ( B — A3HEEL) 6,8,8 

HMHEEL = D*CUS(1.57C08 - AZHEEL + 38) 
oo TO. 10 : 
HMHEEL = 53P * SIN(A3HEEL) 

GO TO 10 

HMHEEL = 0.0 


COMPARE HEADS CALCULATED THUS FAR AND DETERMINE THE MAXIAUM 
me) {HMO — HMHEEL) 
fe = AMHEEL 
GU TO 100 
HM = HMO 
CONTINUE 
TFCHLAMDR) 


ll, 12, 12 


40340741 
WAECULATE DRAFT JQUE TO HEAD OF WATER ABOVE MAIN DECK 


THM = Dl + HLAMDK 
HMAMDK = THM — ZKIP 





- 10c - 


Mm, |! EVEL O, MOD O ' HDWTR DATE = 67 132 19/43/53 
c COMPARE HEADS AND DETERMINE FINAL MAXIMUM HEAD AT POINT 


LF {H4A4DK = HM) 45945445 
46 Hid = HMAMDK 
Soe CUNT LNUE 
40 RETURN 

END 








Canc 
HO 


D 
cr 


c 


tc 
ee 


+ 


CaLecilage: 


EMHESL 








Cale ee: 
HiiAMDK 





RETURY 


FIGURE VI 


Calculate the nead due 
to the standards wae 
Dretseve. 


Calculate the headmeue 
to the specified 
heel angle. 


Calculate tne nead due 
to the desisn head of 
water above the nain 
deck. 


pelect the maxizum 
hydrostatic head act- 
ing at tne poin. 


SUBROUTIUEG HDWTR FLOW CHART 





= (Oa 


LT. DESCRIPTION 


Introduction 
This subroutine calculates the maximum permissible 
Soan to the next (upper) longitudinal on the midsnip 
section. The hydrostatic head existing at the lower 
edge or the svan is employed for this calculation. The 
permissible spacing is calculated on the basis of three 
different criteria, as described by St. Denis [D1]: 
I. dine permissible span is calculated ongine 
basis of the naximun compressive stress exerted 
Oheone platine. 
2. Ine permissible span is calculated on the 
basis of the tolerable tertiary stress level - _ 
eaused by plate binding due to nydrostatic 
pressure normal to the plate suriace. 
2,. Finally, stability requiroaea ccs aomsuac 
unsupported slate are used to evaluate tne 
permissible span between lonsitudinals. 
Once the three values of the tolerable span have 


been deternined, the lesser value of tne three is selected 


as the limiting soan. 





eo 
eas 


Calculated Items. 


Eon DO 
OTLCRK 
olLCrRD 
SsT2Est 
OGLULT 
BRM 

tblagl 

Belt 
Z2PTLIN 
W5 BPRC 


sy7bol 


ZNAXIS 
STLCAL 
SCMACR 


ABAB 
CLORIT 


W5BTLI 


Many ‘ fom 
iCal a i 








Maximum perm ssi pilema te ee 
keel, (Tons/ ine 

liaximum permissible stress at 
deci: centerline lome, mae 

Sstimated value of secondary 
stress.) (icons ima) 

Yield stress of tne platings. 
(Tons/In.<) 

Transverse frame spacing. (Feet) 


2) 


Plating thickness. (Inches) 


Half breadth of preceding lonsi- 
Toiduneds., (feet) 

Height of preceding longitudinal 
above base line. (Fect) 
Span to preceding longitudinal. 

(Feet) 


Meaning 


Locationeof Neutra ax2s om 
DD-931 midship section apove 
pase line. (Feet) 

Calculated primary compressive 
stress at preceding longi- 
tUdi tal oeey 

Limiting stress intensity, 
defined as iz = (STLCAL + 
ST2EST) (Tons/iIn.°©) 

Aspect ratio of preceding svan. 


Coefficient used in calculating 
the erivlcal cerercud on 
Che Vodeiane 

Permissible span due to critical 
Strenctn icemterie Cree.) 

Hydrostatic pressure at pre- 
ceding leneicnd: ate Gloncy, 
In.) 

Coefficient Usecwimeece Cortuae. 
stress calculation. 





oymhol 


W5BIL3 
SGMCRT 
XUOSTP 


ST3MAX 
W5BILS 


CU EouG 


symool 
W5BTOL 


Salling Sequence 


en EIS ai 


Gali Coe aca 


Sample Input/Outyout 
Input: 


Output: 


Memaamental Equations 


heaning 
Permissible span cue to the 
| tertiar;s stress calcu auc ee 
(Feet) 
Criticel stréss 14tensiu, sao 
ist panel of plating. (lome7 
ie 
Required number of stitfeners 
for a plate panel. 
Greatest tolerable tertiary 
stress. (Tons/In.“) 
Tolerable span on basis of plate 
stability criteria. (Feet) 


Meaning 
' Maximum tolerable span to nex 
longitudinal. (Feet) 


(STICRK, SMECRD, obagen 


, SCHULT» SRAM 
THL, YPT<IN, ZPTHII, 


WEEPRC, W5BTOL) 


(Computer test run) 


Serie 7.93 Tons/iIn.* 
SUL GSE, 6,00 Tons/In. 5 
ST2EST 1.3% Tons/In. 5 
SGMULT 20.98 Tons/in. 
FRM 8.00 Feet 
eee O.2otes Inches 
YPTMIN eee Feet 
ZPTMIN 0.015 Feet. 
W5BPRC 76S Feet 
W5BToOL ie 7 72 Feet 

ere STLCRK 
ZNAXIS = 26.23125 a ee Tee + STIG 

=  I4NAKTS ~ ZPYMI 

SLLCAL = SPUCRiae ce ae Ses 





ar Oe 


ABAB = FRM/W5BPRC 
THis Col 


WOBTLL = psp 
CCl = 





PRESS = 0.4 oaeo ny 2 
ST3MAX = SGHULT -~ STICAL — ST2EST 
W5BTL3 = = See 


STAMAK 
C oa - —_ +e ty 
v3 os 6 x C3CRIT x PRESS 


14162 x 13392.86 = THETA 
ion 


1OSTR = SHACR 1.0 
oe) SGnCat 













| 
a 
= 


SGMCRT = 


a 5.0 
W5BILS = AUVOSTE 
Sample Calculation (Refer to subroutine listing and flow 
@ chart, following pages s 


AD = one ae 
ZNAXIS ; 265 2g en o 


14.92 
STICAL = 7. (+2 005 
= 93 na ont 





W5BILL = 0.26125 amen es 


12.0 
= 2.0 
RESS = O.445 x 30.19/2240 
=O nees 





ST3MAX = 11.7% 





- 108 - 


ess a me ——_ 


CC2 = SJ es =: CSL 7 anOOe) 
= le ieud | 


MOBIL = 0.20.25 bce 


lI 
}4 
& 

Nh 


SCG —= LOS) ; 
T =e ills oe 
ANOST?F = \/f 759% 1.0 


WOBTLS = 2,25 
WOBTOLs= 2.772 teen 








= OO 


mo LEVEL 0, MOD O MUSOP ACE » DATE= "67132 ~ 19743/53 


Omer cr cy CY CIV OOM 


Man 


SUBROUTINe CSPACE (STICRK sSTICRO,STZEST , SGMULT FRM, THIS YPTMIN, 
LZPTMIN» wOBPRC »WwOSBTUL) 


W53TOL IS CALCULATED ON THE BASIS CE THE PRIMARY BA peer iad 
STRESSES, THE LESSER VALUE OF THe Tat 1s) [Hees Eee eae 

THIS VALUE OF WSSTUL IS THEN COMPARED wIlTH THE MINIMUM SPAN 
PERMITTED ON THe BASTS OF THE REQUIRED NUMBER OF STIFFENERS FOR A 
PEATE wITH THICKNESS THL ANG A WIDIH Ge 5203 GrE aie 


BASIC METHODOLOGY OF SUGROUTINE TSLECT 1S USED FORSTREM aie 
CALCULATION. . ; 


— 


mex lsS = 25623125 = (STICRK 7/ (STILURKe SST rea 
SrpCAL = STICRK * ABS (CZNAXIS - ZPIMINI7 ZNAXTS? 
Be qACR = 1.25¥*(STICAL + ST2EST) 


ABAB = FRM 7 WSOBPRC 
Meet ADAB — 7-C) Ol, (03, 103 
MiieeciCRIT = 7.0 
GO TQ 730 
fomeetr {ABAB - 3.5) 02, 104, 104 
704 CICRIT = 7.0 + (0.4¥*((7.0-AdAG)/3.5)) 
GU TO 730 
moeeeir LABAB-1.9) 705, 706, C6 | 
706 CICRIT = 7.4 + 9.7*(3.5-AdA3)/1.6 


GU TO 720 

meemciCRIT = 8.1 - (ABAB-1.9)/1.9 

meemADULIN = CICRIT * 3.1416 * 3.1416 * 13392.386 
BDOULIN = 10.9 * SGMACK 


CCl = SQRT (ADJLIN/BOULIN) 
meeyidn = (TH * CCl)/ 12. 


TERTIARY STRESS CALCULATICN. 


DATA AZHEEL,D1L,HLAYDK »sHLDFL »NBELTS pXLLBP/ 25236, 26.2312554%ey14e35 1 
1 407./ 
CALL HDATR (AZBHEEL,YPTMIN, OL,»HLAMDK yHLDFL »NBELTS+XL18P,ZPTMIN,HM) 
PRESS = 0.445 * HM/2240. 
PRtUABAR - 1-4) 901, 903, 903 
pieecscCRIT = 0.0627 
Sue 10 930 
mete ABAB—-1.2) 9021 904, 904% 
904 C3CRIT = 0.061d + 0.0012*(( ABAB-1.2)/C.2) 
GU TO 989 
Be@gecoacRiIT = 0.057 + 0.0225*(ABAG-1.9) 
Seems 1 3MAX = SGMULT -— STICAL - ST2eE5ST 
mes) = SORT (ST3AMAX/(5.46*C3CRIT=PRESS)) 
Seegtis = TH1L * CC3 / 12.0 
Meet WOBIL1] -GT- W5BIL3) GO 19 410 





MeL evel 


fcr oe? OO 





410 


600 


601 


- 110 - 


Orie G ESPACE DATE = 67iGe2 19/43/53 
W53TOL = wWw5OBTLL 

GO TO old 

WOOO = Moot LS 


PROVIDE FOR ADEQUATE PLATE STABILITY BY LIMIT TiiGe hoe ee) Be 
BASIS OF THE NUMBcR OF STIFFENERS REQUIRED FOR ARP ea ee 
Ao Ue OF TVG. HEED. 


SGMCRT=4.%*(3.1416**2)*13392.86%(THL*¥*2)/(10.8 * 3500.3 
Mm SPE = SQRT (SGMACK 7 SGCMCRAS) = aia 

W538TLS = AbS (5.-90/XNOSTF) 

Peet WoOBTOL «Li. WS8TLS) GO TO 601 

W5BTOL = WOBTLS 

CONTINUE 

RETURN 

END 





- ill - 


Te. 


> LR ; 


k 









Calculate: 
2NAKIS, STICAL, 
SGMACR, ABAB 


Cacia te. 
Wie ie ey 


Comecu le vex 
ips nies 


pet W5STOL = toa 
bessor or Soo li 
and W53TL3 


Calculate: 
W5RTLS 


W5BTOL = the leas 
of W5STL1, W5BTL3, 


or W5DTLS 


RETURN 


FIGURE Vii 





Calculate the tolerable 
Spacing duc to prainiaigs 
StresGe 


Compute the tolerable 
Soacing due to 
tertiary stress. 


Calculate the tolerable 
spacing from the 
Stability stamdoovnc. 


Select the limiting 
spacing. 


SUBROUTINE CoPACH FLOW CHART 





FF. SUBROUTINE CLONGL 


1. DESCRIPTION 


initroouction 

Subroutine CLOMNGL is designed to calculate the re- 
quired section modulus for the longitudinal-plating 
combination, as well as the minimum permissiole radius 
of gyration. The resulting computation is concerned 
solely with strength criteria, as the criteria for plating- 


longitudinal stapility are determined later in the main 


progran. 
Inputs | 
Symbol Meaning 
oT1CRK Maximum permissible gtress at 
keel. @ (lons7 ie 
STIiCRD Maximum permissible stress at 2 
deck centerline. (Tons/In.°) 
ST2ast Estimated value of secgndary 
stress Glens? luna 
SGMULT Yield stress gf the plating. 
(Toms7 ina ae 
FRM Transverse frame spacing. (Feet) 
ei Plating thickness. (Inches) 
YPTLOC Half breadun of UoR2 ec oat eae 
(Feet) 
Ze Loe Height of longitudinal above base 
line. (Feet) 
W5BPRC Span from preceding longitudinal. 


(Fect) 





; ies, Sinkoee 





Synibol Meanine 
R5GYRA Required radius of gyration of 


plating-lonti tudina® comp 
nation. (Inches) 


Cael ated Liles 


Symbol | Meaning 
XR5SGYR Calculated radius of syration 


required for given longi- 
tudinal location. (Inches) 


PRESS - Hydrostatic pressure at langi- 
tudinal. (Poube-) ina 

ZNAAIS Location of neutral axis of DD-931 
midship section above base line. 
(Feet) 

oTLCAL Calculated vrimary comouressive 
stress at lonettudanat sa meem 

eet Permissible span for cases where 

Span exceeds 50.0 x TH. 
(Inches) 

BWIDTH Effective width of olla ule aec ae 


tated by tne lesser of WIDTH 
and 12.0 x W5BPRC. (Inches) 
AMBLLG Bending moment at mid-span of 
nlating-lonsitudinal co ejeiai sara. 
(Inch-Pounds) 
ST3LGL . Tolerable Levgl of tertiary stress. 


(Tons/In.< converted to Lb./In.°¢) 
Cutout 
symbol Meaning 
R5GYRA Required radius of gyration of 


plating-longitudinal combi- 
nation. (Inches) 

MMDIEa Required section modulus of 
plating-longitudinal combi- 
Nation. Geae 


Calling Sequence 
Call CLONGL (STLCRK, STLCRD, Si23sioe ioc 
ne i> SPAC, RSGYRA, AVDIMN, YPTLOC, 

ZPTLOC) 





ai) & 
Date ce 


moneaanental 


sample Calculation 


ene 


aii 2 
2NDUEs 


ier aN ae t. 2a : 
fo gy ftnovt/ iy ce vae Lo 
epee ee Se ~———e “bere 2 cee 


) 


Outouts 


CLOMS 


~ 134 - 


gt By oe 
' Toute’ : yu 
( VOR DliGees 


Sone 
> LCi 
ST at 
SCMULD 
PRE 
Hees 

oP a 
ZG 
W53PRC 
R5GYRA 


RSGYRA 
XEDLEW 


XR5SGVI 
PHENO 


ZNAXIS = 26.23125 x 


— pF RIC =< EN os _ Ze EGOS 
STLCAL STIORE x |e ee 
WIDTH DO. © 2 wea 
XMBILG = 19.0 x PRESS x EWIDTH x FRM 
ST3LCL =. SGHULT — STICAL — STomsT 
ST3LGL = 2240. x ST3LGL 
_ XEBILG 
Tf. =~, 2S 
ee ST3LGL 
(Refer to subroutine iiecinee ne aon 
chart, following pages 
XRSGYR = a = 3.007 
PRESS = O.445 = 30.14 
=o loo 
ZNAXIS = 26.23125 x 2:23 
0 eS ceoe 


STi cab 


7593 Tons/In.5 
600 Tons/in.7 
1,34 _ Tons/in.5 
20.98 Toney ane 
OOo Meow 
0.265125 Inches 
7S Feet 
0,045 reet 
tooo Freee 
52007 Inches 
2097 Inches 
ey es 
d2.0 x Ske 
Baie 
O.tth-5 x HM 
STILCRE 


Si Cals see omtee ae 





Lb OL eee 
Ce oe 


2.90 





W5BPRC = 21.23 Gachee 





WIDTH = 14.06 





EWIDTH = WIDTH =) 12) 0ce 





XMBLLG 8. x 13.0 e Dae oee 


| 217,090 
ST3LGL = 26,320 psi 


rasan one CLES 
omni = 2,6 
= oes 








20 3 
201 


600 
601 


GC, MOD 0 . CLONGL DATE ="a7 laa 19/43/53 


SUBROUTINE CLUNGL( STICRK,STICRO,ST2ZEST,SGMULT,FRMyTH1si5BPRC, 


L ROGYRA,XAD1LMiN, YPILOC, ZPTLOC) 


Meooyee= 12.0 * FRH / 31.0 

IF (XROSGYR - RSGYRA) 201, 263, 203 
R5GYRA = XR5SGYR 

A3HEEL = 0.5236 

AAA = W5S5PRC 

ile 2o 62 31247 

HLAMDK = 4.0 

MlOote = 14.5 

NeeLTS = 1 

XL1LBP = 407. 

CALL HDWTR (ABHEEL,YPTLOC,D1L,HLAMDK,HLDFL ,NBELTS,XLIBP,ZPTLIC,HM) 
PRESS = 0.445 * HM 


MNS = 26-231241 = STICRK / (STICRK + Siler) 
BrcAlL = STICRK * ABS ({ZNAAIS - ZPILOC]/ZNAKIS) 
W5BPRC = 12.0 * WOBPRC 


WIDTH = 50.0 * JH1L 
IF (wW53PRC .LT. WIDTH) GO TO 600 
EWIOTH = wIDTH 


60 TO 601 
WIDTH = WOBPRC 
eioliG = 18.0 * PRESS * EWIDTH * (FRM EZ) 
mepeot = SGMULT - STICAL —- ST2EST 
AOBPRC = AAA 
SYT3LGL = 2240. * ST3LGL 
XMDIMN = XMBILG / ST3LGL 
RETURN 


END 





ae aya 


Cen cul age = 
XR5OGYR 










NO XR5GYR 


Comer entc 


R5GYR = ARSGYR 






Caveuwawc 3 

PRESS, ZNAAIS, 

be O eee el 
DTH 


~ 








PIGURS vee 


Determine the limiting 
Value of the radius 
Of gyracaonm. 


Do the preliminary conm- 
putations for deter- 
mining the erfective 
WLO Uy Or mpoleaceeiiaes 


SUBROUTINE CLOUGL FLOW CHART 





pelect aWIDTHE 


Gal cullaues 
XMBILG, ST3LGL, 
and XDI}! 





FIGURE VIII - 


Determine the required 
section moculus for tne 
plating-longitudinal 
combinavion. 


Continued 





G. SUBROUTEigeet . 


bis ~ DESCRIPTEOM 


Moccocuction 


Ihe characteristic data delineating the contribution 
of the halt breadth plating to the total area and section 
modulus of the midship section were generated by suoroutine 
WLShOD for all available plating thickhesses, ub Coven o wae 
Maximum. Tnis information is imbedaece in suvrouuiljcr. 
in such a way that, given an input of the plating thickness, 
the appropriate information detailing the effects of the 


plating on the total area and section modulus is provided. 


Inputs 
Synbol Meaning 
Ea . Plating thickness. (Inches) 


Calculated Itens 
NWone. Subroutine PHINER merely selects the 


correct values of BLOM, ARHAPT, XMOMIN, and XINGR (defined 


below) for the given input value of plating thickness. 





Outout - 
S mipol 


BLOM 


AREBAPT 
AWORIN 


Caaline Seacuence 


heaning 


Moment about the base line for 
the half preadtn plating. 
(Inches Feet) 

Total area for the half breadth 
plating. (Inches@) 

Net moment of inertia about the 
base line for the half breadth 
plating. (Inches? Feet“) 

Moment of inertia of the total 
midship section plating about 


She neuiiva ll yascseren vhs 
plating. (Inches Feet”) 


Call PMINSR (THL, BLIDE, ARBAPT, XMOMIN, XIFER) 


sanole Invout/Outout 


Input: 


Qutput: 


Fundanental Equations 


None. 


Saapl.e Calculation 


None. 


(Computer ves tenmmy 


TH 0.625 inches 

BLKOM  6883.683+  inchesS fecc 
AS ae 1972,306+ inches 5 
XHOMIN 153164..375 inchesS feet5 
XINER 105714.562+ inches“ feet 


(Refer to subroutine listing and flow 


chart, following vaces) 








- i2l - 
Mee EVEL YO, MOD 0 PAINER DATE ="Giez 197 43/55 


SUBROUTINE PMINER (TH1L s,s SLMOM, AKREAPT, MAOMIN Ale 
eee itl = O.250007 .EQ. UsOI Co may 
Petal — On28125) .6Q. 0.0) Geis 
Peettetit lh =O 51 2500, ECS C.D) 6Co Bite 
iit t ii 1 Ge 54375) >.EQ. G.0) COUR eze 
ett it) — 0537500) .£0..0.0) Gus Tue 
Pee it 1 O043750) .E0. 0.0) GO fee 
Bit ytll — 0.50000) .EW. 6.0) GU Foe2zs 
Peet (tHl 0.62500) .EQ. G.0) GO TU 24 
IF ((TH1 O.75000)) «EQ. 0.0) GU TumZ> 
Mme til = @.87500) .£Q. 040) GO FO Ze 
Mamieelitl —- U.9Z7507 -EQ. O20) GU TU Ze 
Meet itH] — 1.60000) .&9. 0.0) GO Ta 28 


| 
. 
) 17 8LHGM = 2753.5119629 
AREAPT = 188.9225464 
XMOMIN = 6127423710937 
XINER = 42284.8554687 
RETURN 
18 B8LMOM = 3097.7021484 
AREAPT = 21225378418 
XMOMIN = 68933.5 
XINER = 47570.0546875 
RETURN 
19 BLMOM = 3441.895752 
| AREAPT = 236.1531372 
| XMOMIN = 76592.5625 
XINER = 52854.8671875 
RETURN 
20 @B@LMOM = 3766.0852051 
AREAPT = 25947683105 
XMOWIN = 64251.5625 
XINER = 58139.7304687 
RETURN 
21 BLMOM = 4130.2734375 
AREAPT = 283.3335449 
| XMOMIN = 91910.625 
| XINER = 6342429726562 
) RETURN 
| 22 BLMOM = 4818.6132812 
AREAPT = 330.60142578 
XMOMIN =107228.8125 
XINER = 73997.5625 
RETURN 
23 BLMOM = 5506.96875 
AREAPT = 377.8449707 
XMUMIN =122547.25 
XINER = 84569.8125 


RETURN 








feo LEVEL 


24% 


we) 


20 


Zi 


28 





ee oe 


OOo. se ' PMINER DATE = 67132 
SestUM =~ 6563450835937 

AREAPTE = ime? . 30641523 

XMIUMNIN =1531584.379 

RINGER == 1057 14.5625 

RETURN 

BLMOM aeOU eee Lots 


AREAPT = Moe fot Io! 
XMUMIN =183621.125 
Meeks —126857%.125 


RETURN 

SUMO = ~“9637.1579687T 
AREAPT = 661.228/598 
XMOMIN =214458.25 
XINER =1480900. 

RETURN 

BLMJOM = 10325.5351562 
AREAPT = 108.4592285 
XMOMIN =229777.25 
PeeNER  =158572.5625 
RETURN 

pesom = LL013.925/812 
AREAPT = Sow 15 9 


XMUMIN =245096.0625 
XINER =169143.625 
RETURN 

END 


19/43/58 





faerenent or 







i 


POO OqeOCeoeceeOCe 
e e 
wn fu 
ty NJ 
NIV 
2 § 


BLMOM, 


| AREAPT 
XMOMIN 
XINER = 






FIGURE 


HUM BLEOM 

an, 2735 
18 3097.7+ 
19 341 8+ 

20 3786.0+ 
in L130.2+ 
Me 4818 .6+ 
23 9306 9+ 
al. 6062.02 
2) 8250 .4+ 
26 9637.1+ 
27 10325. 5+ 
28 11013.9+ 
SUBROUTINE 





AREAPT 
11 oe 
2125 5+ 


Ix 


PLINER #LOW CHART 


(Tabulated values, to be inserted above) 


ALIOMIN 
61274.+ 
66938. 
TODO 2 
S425 + 
OO Une 
nOv22c- 4 
1225-7 .+ 
153184.+ 
183821 .+ 
2112458 . + 
Bed 6 
24.5096.+ 


XINER 

La2dh..+ 
“L7570.+ 
528 Bhs, + 
58139.+ 
634-24.+ 
beeee, 2 


156572. 
169143.+ 





H. SUBORDITATE PROGHALS eas 


1. SCRIP Ties 


ie troduction 

Program SHDATA generates input data required for main 
prosram RUHSCCRS (after further manipulation by subroutine 
PLTGTH). The midship section molded form of DD-931, ori- 
ginally defined by a series of nineteen cubic careetoen: 
is defined in detail by a mesh of one hundred ninety-one 
points by subroutine SHDATA. 

Bach cubic equation, with one coordinate variable 
eesined ih terns of tne olemeg 2s Weed) te eevee. ae 
points on the surface of the midshiv section shell molded 
form. The final point defines the shell-plating inter- 
section. The outout of this subroutine is then used as 
an input to program PTLGTH, which calculates the distance 


between adjacent points. 


inputs. 
Sympol Meaning 
COORD1 The dependent variable. (Yor Z) 





* we : ak - 
Provided by courtesy of tr. Lee Mount of J. J. Henry 
orc. 








. Syribo] 
COOxD2 
HOSEG 
Lily 
PTMAZ 
AA 
BB 
CC 
DD 


Galculated Lvens 
Symbol | 
VV 
SUM 
DIFF 


Sucout 


symbol | 


mE 


Sample Input/Outnout 


Inout: 


The indesendent variable wu os 
x) 


The nuriber of the cupic equation. 


(Fron 1 through 19) 

ifininunm value of the independent 
variable. (Feet) 

Maxinum value of the independent 
variable. (Feet) 

Fixed quantity in the cubic 
equation. 


Coefficient of tne first 
independent variable. 

Coefficient of the second power 
independent variaple. 

Coefficient of the third power 
Independent variable. 


pover 


Meaning 
The independent variable. (Feet) 
The devendent variable. (Feet) 


Rence of the independent variable. 
(Feet) 


Meaning 
Half breadth of voint. (Feet) 


Height of point above base line. 


(Feet) 

(Computer test run) 
COORDL Zz 
COORD? ie 
WOSHG i 
Palen One Feet 
PTMAX ee Feet 
AA 0.0000 
BB 0.023592 
CC 07,0000 
DD 0.00058957 








Oucoui: sesment Eo 
us 
L 
i 
dy 
1 
1 
i 
al 
1 
Ae st 


mene siencal Eqauscvions 


SUli = 
VWV= VV + STEP 
oTeP = Dirr / 10. 


| 


Dire = PIrMAX - 


sample Calculation 


DIFF = PTNAX - PTMIN 
= 2.0 

STEP = 2.0 / 10. 
= 6,20 

i eon ee 

SUM 


| 1 


0.00474 


ONO ON ON Fly MF 


rs 
er 


= 


ie 
Ono 
0.20 
OD 
0.50 
0.80 
100 
1.626 
1.40 
1.599999 
Ll 


AA + BBxW + CCx We + 


0.080322 


0.046084. 


DD x Vvy3 


(Refer to subordinate presran listin 
and flow chart, following pages 


0.023692 x WW + 0.00058957 x v3 


5 
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Se CO gene (2%, ) Sib 2 Ftd eae 6 5 ee 
fey) G05 STFS = PTaak - PT AIN 
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Me JCS See a 














a eS ay NY ee ms ee ee my ee ee me ee ye ey eee re ee ey . 
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_ — Se cans my me rms ee me ee cm a em es ee ee wm a se i ee ee a ee es ee ey 
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vm elena eae ease Daisnssnnea EEE ae 
({USGES. = 22) AE YW OA) Boa eee 
Rr Sgr on ait 5 5 5 === 


—— ec cr rr se re ce crm i ce ry ry cts re es ce et ces ey es re cy ey es eee et ee ey ey ey me ee ee ee ee ee ee re i ee ee ee 


= ee ee ee ee ee ee ts rs a ct ct ee ey ee ee ee se ee em cm me we ts re cee rm i eh ee es ee cs ry ey ey ee ey ey eee eee es ee ee ee ee ey ee 


SE SE EE 


—_— ry yc re rc re re cr re rc ey cm rs crm rm mcs rs ct cr cr ee rs ym mm am me crm em emer we wr rr me cr ry ee ee ee ee ee ee ee eee 


pm a cw re mm me sc me cm res ct cm my cm my mr wm cm mm rm mm em rm em me ee me rm eee ee 


my my me cer tre wee em rm nt es ms ce we were ts wee res wr ee ey ce i rs cs me cy ce me ED ce SE ce i) ee ee eee ey i oi coe ee ee i eG eee ee me ee Ge wet) ete ee ee eet 


ee rm em ens cee mice meee ee mm ee meee emcee my cee mete emt cy errr my cre rm my mm my rms ey me my my mm mc i ce ce cr ce ey en cr ee ee ee ee ee eee ee eee 


my mn yn mee meee em ey ms my se my ee me ee mm ms et wm re ee ee re ee ee ee cre ry em ee ee ee ee Se ey ee ee ee ee ee i ee ee ee ee ee ee ee 


mee me ye ye ee ny es ee em me ee wee we my me we ems re ee re re ey me ewe cy tt et ee re ee ey ey ey ce ey ey ee ee ee ee ee ne ee oe 
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een i eee eee ee ee ee es ee | on ec ee ree es ey ee we em ce ee eee 





~ 123 - 


eobeula te: 


volve tne Cuere 
Calculate: , equation for the 
SUM value of the dc- 
i pendent variable. 


een toate Assign offset and | 
SSNS ee height above base 


Coordinates line fon pens 





No Last Continue solving for 
ioe uo .c Shiels uicllecucee. 
Yes | 
STOP 
FIGURE X 


SUBORDINATS PROGRAN SHDATA FLOW CHART 





I. SUBORDIUATE PROGRAL DKDATA 


, 


1. . DESCRIPTION 





Seeocrocuction 

Program DNDATA is designed to generate a series of 
points on the molded deck of the midshin section of DD- 
Bais ine half preadtns of the points are deveruine me 
the basis of the angle of the sine function used to de- 
ene the height of the camber curve. For the deck edge, 
the sine equals zero, while the value is one at the center- 
line, A direct correlation between the angle involved and 
the half breadth is maintained—-if the angle is forty-five 
degrees, the point defined exists at exactly half the max- 
imum breadth of the molded deck plating. 

One hundred points are defined, equivalent to ten 
cubic segments with ten points evaluated on each, as in 
program SHDATA. One added ooint defines the centerline of 


tne deck. 


inputs 
oymdool Meaning 
COORD1 The dependent varia oe ee) 
COORD2] | . The indepencent variacuc me 
ZUIN | The heicht of the deck ed=e above 


the base line. (Feet) 





Bye. 
ZiAR 


YiAX 


Galculated items 


4. 
Cutout 


Sample Innut/ 


ovmbol 
STEP 
nay 
FF/YBEG 
DIFF 


hayonetes 


OmiaouiG. 





Sooo ee 


Meanine 


the height of the deck cenverline 
above the base line. (Feez) 

The half breadth of the deck edge, 
(Feet) 


Meanins 


Angular increment for the sine 
function. Cations) 

Increment of the nalfbreadth 
for adjacent points. (Feet) 

Offsets of taeppoimeemeGn- i) 


Height difference between the 


deck ecdre and the deck cenver- 
line. Feet) 

wa = tT re * or e % 

fefement’ nunpereefor unifornity 
with SHDATA output. 

"Point" number within Gaemsc ecm 


Angie to be used for the canber 
calculation of Gae Mei aeor 


the deck. (Radians) 
Poems 


Offsets to thesperne eo om 


Height of the point above the 
base line. (Feet) 


(Computer test run) 


COORD1 Z. 

COORD2 Y | 
Zu" 25.239594% Feet 

Z3AI oe Feet 

YAK 22.34%37960 Feet 





ORG. pesment Pome na Zz 
D ‘Lo 22.343796 =25.239594 
2) 2 22.120346 25.255157 
Zo 3° 21.896896 29 270737 
30 Lt -0,000348 26.231247 
moneenental btavacions 
ar =e  fHGts 7 Oo. 
Y¥Y¥ = YERAX / 100. 
YBEG = YHAX, later = YBEG ~ YY¥ 
DUNE tae 7) AK = 7 
ANGLS = ANGLE + Ofee 
Bee= Zils DIFF Sasi NG ers 
Pe = iG 
Samole Calculation (Refer to subroutine listing and flow 


chart, following pages) 
STEP = 0.015708 
YY¥ = 0,.22342796 


YBSG = 22, 33796 
DIFF = 0.9916 


EE = 25.239594 + 0.991653 x Sin (0.) 
= 25,.239594 | 
FF = 22. 343796 








MYVEL O2 NOV. 66 = : 08/366 —FSCR TR 


COMPILER OF TIONS = NAME= MALN,OPT=CO yL INECNT=50, SOURCE, BCD, NOLIST,DE 


PSN 0002 GOL FORMAT (2481 3F10054 

ISN. 0003 |. 902 FORMAT CLHO,AL,1LSH A FUNCTION OF » Aly9H SEGMENT ,12,7H PD 
LI4H X= 203.500000,3H Y=,F1034) 20022) eee 

ISN 0004 - . 2OS_READ (5,901) COORDL, COORDZ, 27MIN ieee 

ISN Q005 THETA = 0.5 * 3.1415927 


__ ISN 0006 STEP = THETA / 100. 
ISN 0007 FF = 0.0 i j 
__ISN 0008 DIFF = ZMAX - ZMIN 
ISN 0009 ANGLE = 0.0 : 
MesN OO1O0 =  __YYY_==YMAX /_100._ 
ISN OO11 YBEG = YMAX _ Co 
m ISN 0012 | AA = 0.05 ae 
ISN 0013 200907 J)= im. Non 
ISN 0014 __ FF = YBEG a | 
ISN 0015 EG = ZMIN & DIFF * SIN(ANGLE} 
m= ISN 0016 NOSEG = AA ae 
ISN OOL7 i an | 
__ ISN 0018 en ee _ | 
ISN 0019 T ="10.0% > WAAR "E°OTT) — [ose = 4K 
® ISN 9020 fer wae or 0h. Oni Umar Cm 
ISN 0022 GO TH 999 
Mes 0023 #  # #910 f =.10 cee cee ee eA 


ISN 0024 909 AA = AA & 0.1 
ISN 0025 _. NOSES = NOSEG & 20 - ~ae | 
ISN 0026 904 WRITE (6,902) COORDL, COGRD2, NOSEG, I, FF, EF 
ISN 0027 = 905 _ WRITE (7,902) COORD1, COORD2, NOSEG, I, FF, EE. 
ISN 0028 YBEG = YBEG - YYY 

m ESN.0029_ ;_ 927 ANGLE =-ANGLE & STED 


Ne eee Oe a~ = a es et en . 
STcP 
ISN 0030 ae 
HON 0031 END 
AFaat See th te tee ~ - = - . ~ ere orte R ee e eteme e  e eee ee gee te ee ome ee ee ye ee ee ee re =< om 
ee i et mt ee ee om me ee ge OE ee Cam OR SU TU ets wt em et ee ee ee ee ee Oe res ee ee ee ee ee ee -~ es oe em Oe aoe _ ae em a 
eee emt edercereteri= sesmreo— toot et er ee ee NN SE aT ET SR OO eR I 8 A IRS OS 6 ISIN I NR Re Sey OR me ee ne EER Ys VO awe 
te oD TE es ee ee er oe oe ~~ me es Rete oe: rte mn mm mr Reete WOT CR Ore SUE SE ED ert Nee) OE a GE eS Set ge Sm ey my et ee meee. ey Hee <_ 7 8 “— oo. Som = =22 “ ee wee ow a _ ws 
Me ny er es ee ee 8 Se — ee ome — - rr TU ee ce SD eS Se Sy TE apt ore eet ee ee et ee —— we -_ ——.- = ee ee * a ne 
PT OD eee He ay a OSD er SR Re i a ORS 98 Go Oe aE SY SSeS eS | A re ee Sm 6 ee eee oe wee ee ee 
a ee ee eee oe oe ee ee a ee FS i ye SS ey SY tt ee ee ee 2 ae _— —- a ~~ = nt a 
SA SU mo ewes Gee eet me ee ee ee ei ee ee —_ _— Pe ee ee ee ey — ee ee — ——— _ a ao ee Oe ee —_ — 
a py EY pene eeeeeek cata eee tne «Par erean Ae a Oo ee RS A Fe a RS a RIG Ee rE EE ee re ae _ _ eS Ses GD ee ace tee ee 
— —o— a eet apc Seis er Gg a oes a ae cere mare — a ee ee ee a = - . —_ = — 5S tr A ae cans emi ey ewe _ =o we aoe 
eee — —_ — ee ee tt ee ee ee eee ~ — - —— a ms Oe ee es 
ED ye ae rer a ewe pana —_ eee ees Ae oe ee a ee Se SPR RS ee 9 I —. eo ap oS a — ee ar ae 
® 
~ — — ee ee = — = ~ — 


oe a ee -_———- <- - me me ee ee ew - —- om : = re Sp tae welt rae haga 
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Calcul ave. 
ANGLE, STEP, 
end DIFF 





Calcuiaue: 
GG, 8, NOSEG, 
feiats)) 1 


LAST 
POLL? 


STOP 


PIGURE cs 


Determine the initial 
ansle and tre incre- 
ments of tne ansles 
and offsets. 


Determine the point 
coordinates. 


SUBORDIGATS PROGRAM DEDATA FLOW CHART 








J. SUBORDINATE PROGRAM PTLGTHA 


ier Odiuc Gon 

Program PTLGTH uses tne outputs of SHDATA and DADATA 
to calculate the distance petween adjacent points, based 
on the aSsunpntion that the distance between two pvoints 
can pe closely approximated by a straight line segment. 
im view of tme short distances invelives > Uieewrecmi ye mn 
a relatively precise calculation. The center of gravity 
of the short segment so defined is evaluated py linear 


acer polati On. 


Inputs 

NOSECL1 Segment number of initial point. 

pili Point Number wor tive enn 

me Half breadth of Ini¢giel soea 
(Feet) 

eas Height of initial poinusapeme 
base line. (Peet) 

NOSEG2 Segment number of next point. 

I2 Point mumber On Messrs joie. 

ee Half breadth of next point. 
(Feet) 

APIS Height of next voint above base 


line. (Feet) 








Outous 
Symbol Meaning 
Bio Distance from Imi Girona 
point.  (meeb) 
ZCGP I Height of mid poinusomepmon 


above base line. (Feet) 


pomplLe Innis, Ouro (Computer test run) 


inp: NHOSEGL 1 
le i 
vaca O28 Feet 
ZPTL 0.9 Feet 
NOSEG2 1 
T2 2 
ae le 0.200000 Feet 
ZPT2 0.004743 Feet 
Oana tts DIST 0.200056 Feet 
ZCGPT 0.002371 Feet 


Fundamental sHauations 


DIST = ./ (YPT2 — YPTL)© + (ZPT2 — ZPT1)2 


ZCCPT = 0.5 x (ZPTL + ZPT2) 


Saapie Calculation (Refer to subroutine 2 and flow 
chart, following vages 


pist = ./ (0.20000)2 + (0.00%7%43)2 
0.200056 


0.5 x (0.004743) 
OnGo2e 


ZCGrL 





7} 


——— —a" —_ —— aoe eee ee ee a ~~ a o> 
— we eee ee emcee we ee eee ._ 














oa 22 Rie AMAT (27K, bh? 5 f%) Lay hyo ee ee iis 
Sa oe CO 1) ea = ot ee 
PS\ 4004 . 258 235 5, 951) SSES2, Pe) Yet, em -- 
Mess 2005) EST = 59*T (hrO12 - YPTL)e*2 & (ZPT2 Sent eres 
[34 “(7 2T1 & £272) | 99) seule ea 
ie 


3 (ee ere 


ea 
Gin 

sf) 

¢ 
pia fe 

yAG 

1 

| 

pt 

= 

L 

is 


- 1. Sia ee er a ea. Ja ye 4 eels oe 4 ie ’ lee 4( PK, 713) eee 
Boe 2003 MOTTE (6,904) 13526 OTL yZ2T ly BES eee 
MS 950) LHR LIE (2234) @PS2G1,11,¥21y 227 een 
wowcl" fF ©€(NOSEG2 - 33) ET. DY a 1 


es 
eee > Cl 








ies te 1) 1 2 ee ieee = ly St a 
Mens, 09135 | De 
eee! tL PT , 
B8615 ZP0i = PT 2 
NOS Gre in 992 
ee, i jJ,) 3ta&te=s oom ee nea 
| ets oo ers els De eo Py Ll Ze NO Ley 2 Oe ee 
15 Hole (7h s904) WESEG2,1°,¥ET 2620 le oe re 
pe STue 
erst; ee COD EE 
: 
: 
Se area re Naeem oso + meres eee SS es wR eee 


emmy sr meee eee res sc me my ee em nw rms ey ee te em eee ee pen res ce et ee eg ere epi meet rm eg ce ee es epi OTE pie epigenetic eee cms eee pe es ee ee eee ee ee eee es ee: 


my meme cet epee ee mp eg ee ey pr re eee ee en ee ts rt ert ee SD ee mee ces ee rr re re er re re re ee rr te ee ee ee ees ee ere ee st 


ee se a mm ee mr a rm rm my mr rn re ms re rs re sr rm rt re me re ee ce ee ee re ee er er ee ee ee ee 


me ces ne ee ee ee ee re ee es ee rn me rt ee ee ee crm rm re ee cg en re ee ee rs rr ct ne ree ee ee ee et ee ee ee a 


(age ey ce rt ee es ee ee eee eet ee es i ee ee ee ee ee ee ee ee ee ee eee ees eee 


vee ne ee ee ee ree oi TS | A: A RS 








-— — ——— ee] eee —_—— ~——_— — 2 —~ + - /_— i ee ee ee tee ae ——=—m (er ee ——- . ower eee eee — ee ee ee ee ee 3.0 -—— —_- ie nt 2 = ae On = ———_—_ —— $e = ES ae Ge ee ee a ee ee ee ee ee GE eee ee 
ce en ewe i eee are —- = - ee ene en ee ie ee ee ee ee ee ee ee ie mm a mmr cere ee es me me me cee mene te a cr me ee ee ec ee ee es et ee 
—— LL A RR | Lt LT Re A Ae tl art a i eS iN eS a 
es ee ee ee et eet ee - . 
~ 
2 
e 
ee a ee eee es wees ee 6 er tee em ees Se Se ee eee eee ee ee ——e — i ee ee ee my ee ne pee omer ees ee ogee ee eo ee ee) ee ee eee ew © ieammma oo) ervey on et 


be ere ees ee eee ee ce ee ee oe ees ee ee ee eee ee ee eee ee 





ea 








Determine the dis- 
tance petween tro 
points and the neisnt 
of the mid-point 
above the bazc line. 


Calculate: 
Lol ane 
2CGPT 





FIGURE XII 
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ee oe 


K. SUBORDILATE PROGRAIL WISNCD 


introduction 
Subordinate progran WISEOD calculates the total 
garth, plaving weight, moment of inertia, and location 


3 


ne Neutral axis for the nidsniovsecerei es ie 

The calculation of eee ee modulus is based on the 

Bol ova seecuavion., [2] 

WIDIZ = 2.0 ~ PRMOM -(aRmarT x 10:01) 
BLOM -— AREAPYT =< ZCOORD 

The output of PILGiti is used as an input to Wrshod. 

Beaver small segment between points on the girth is treated 

as a rece eeniers segment witn a widtn equal to the syeci-~ 

fied thickness of the nlating. Tne comvonent values used 


mimecie calculation of the SectloOmeaecm woe tomes le cc ems 


Subroutine PILTNSR for eventual use in Nain Program RU:i- 


SCORE. 
inputs 
Symbol Meanings 
PTDATA(I,J,1) _ Half-breadth of point (I,J). 
PeeL 
PIDATA(I,J,2) Height of point (I,J) above 


base line. (Feet) 
Pupp mcl J 53) Distance Srom porn, Ci 


J) to 
next voint. (Feet) 





Batcilaced 


Cutout 


evrrol 


PIDATA(I,7,4) 


WPanlil 


aye 


ive ws 
svmpol 


omenglipencieniectreecarksaoas 


Ces 


AA 
BB 


oynbol 
WIEPRET 


GIRX2 


BLOM 
AREAPT 
ALOMIN 


XLIDLK 
ALD1D 


io 


\O 


ieanins 
Deignt of midpolne ers: ae. 
(T,0,3) above base line. 
(Peat 
Welgnt of tne sStrucuyeei a — 
terial. (Pounds per inch 
thickness of a one square 
foot plate) 
Plating thickness.  (Inmenes) 
Meanine 
Total distance between Noma 
for the half roe 
(Feet) 
Intermediate value used in cal- 


TP OP oN 
4 


culating «AL: 


a cake as re) 


Intermediate value used in cali- 
culavime ROTI ® 
Meaning 
Total Welco Cie Une leusea 
(Pounds or Tons ver foot) 


Toval circumpercoace 
midsnipn secticn 
(Feet) 

‘Moment of 
the base line. 


of the 
isa pa 


coemolavine about 


(in.2 Feet) 


Cross=Sectuior aa. arga of the 


pia cade. ern 

Moment of inertia of the plating 
aboyt she base line. (In.¢ 
Bee 

Section modulus at the keel. 
(ine= woe 

Section mModusus ac cnet dec:, 
(In.< Feet) 

Heignt of the center of gravity 
of the plating above the 
base line. (Feet) 

Moment or inertia of a Pat Ling 
a0 Te sue (Gita 





tee 


Sanple Inout/Outnout (Computer test run) 
Input: PIDATA(I,J,1) PIDATACL,2)2) S02 ei 
tS tee =e 0.0 On iO 
2 2.0 4.0 te 
3 6.0 650i 5.0 
Ly 9.0 12.0 5.0 
5 20 16.0 0.0 
PTDATA(1,1,4) 2.0 Feet _ 
PTDATA(1,2,4) 6.0 Feet J 
PIDATA(1, 3,44) 10.0 Feet 
PTDATA(1,4-,4+) 14.0 Feet 
PTDATA(1,5,4) 0.0 Feet 7 ; 
WPERIN 40.8 Pounds per in. per sq. ft. 
THL 0.25 Inches 
Output: WIEPRFT 408.0 Pounds ver foot 
GIRK2 40.0 Fee 
BLEOM _ 46050) ea eae 
AREAPT 60.0 In.¢ 
XLOMIN 5120.0 In.2 Ft.e 
XMDLK 320, 0 ina 
XMDLD 140.42 In.° Ft. 
ZNAX 0, Sec | 
XINER 2560.0 In.* Ft.© 
Bincwmmemval Equations 
GIRTH = GIRTH + PTDATACI,J,3) 


WEPRFT = 2.0 x GIRTY =x WPERIN x TH. 
ee = Wee ee 


AN) 0.083323 x TH Pipe, 
TDATA(I+1.1,1,) - PTDATA(I,J ay" 


= 2 P 
Ble ST es (= ~~“ PTDATACT, 053) 
+ Ue, x (PTDATA(I+1,1,2) - PTDATA(I,J,2))@ 
BLMOM = BLMOM + | 
12, x THL x PIDATACI,J53) = PIDataC eee 


AREAPT 12. a CLR ae 


MMOHIN = XMOMIN + 0.0833 x AA x BB + 
12. x TH. x PTDATA(T,3,3) = PIDATACU ee 


MDIK = 2.0 x (Ee ~ ARBAPT x st) 


sii LINAS 
‘> os no * 





~ ikl - 


DID = 2.0 x BUMOME = ARGAPT x Xvoniy 
— e ee —\ Se = a et es awe ye Tope 
BliOR = 20g 2 te eae 


Ri _ BLO: 
ARBAPT 
Ghd eee Ae oe ee 


Sample Calculation (Refer to subroutine listing and flow 
chart, following page 


2 
XINPR = ko x Lx20x ix ) 
KINER = s+ xX & x y (2 


3 
4800 x{$ | 
= 2,560 in.2 £t.° 











em Cees 


YNUV. 66 OS/360 FURTRAN H 
BoMPIiLER GPTIONS - WSNl= MAIN, OP F=O0C,LIMECNT =50, SOURCE SBC oy NOEIST + De OK ye 
002 DIteEN SION PTIDATA. (3051064) 
903 900 FORMAT (2620.7) | 
004 901 FORMAT (23X+4(2X,F10.45)) 
005 | Dimer 1 = 15-29 | 
006 Domo? Jj=iy 10 
007 ReaD Oo. YJOL) PIDATA (IeJe1) -PTDATAGIs J, 2) 42 LOA es 
| eA AN Pol 5 4) 
00% 907 CUNTINUE 
009 ia ; = os 
010 oI | 7 oe _ 
Oll Reims, 901) PTDATACT. 391) +P TORT, 52), Pe eee, 
-_ e PeeepOATAIL,J,4) 7 
012 DO 910 J = 2, 10 ae 
013 Diol o K =), 4 
014 PLO PIDATA {1,J,K) = 0.0 ~~ 
ee) —SC—<“<it*é‘C BBE READ (5,900) WPERINye THI - 
O16 IF ((WPERIN - 100.) .GT. ©) GO TO 999 
018 84 FORMAT ('1 PLATING THICKNESS =",F10.6," INCHES") 
019 85 FORMAT (! WEIGHT =',FlO.6,* POUNDS PER SQ. FT. PER INCH THIZSKNES 
luSita) 
020 " WRITE (6, 84) THI a a 
eo | — OA ee ae Mit 
022 Stee 1 =) ,630. Sl oe : 
023 7 imeeoo J = L, 10 Aa 7 o ; b 
024 meee GietH = GIRTH & PTDATA(I;J,3) 
Om WTIPRFT = 2.0 * GIRTH * WPERIN * Trl 
026 BOL FORMAT (*0O PLATING WEIGHT =',F20.7;' POUNDS PER FOOT*) 
— BGP FORMAT (* PLATING AEIGHT, ="4wF20.75"% TOMS PERE oo iim 
028 803 FORMAT ('9 TOTAL MIDSHIP SELTION GIRTH =',F15.7,' FEET) 
— | SIRX2 = 2.0 * GIRTH ia yell ng ee 
030 WRITE (6,803) GIRX2 
— WRITE (6,801) wWIPRFT © | SS ee 
032 WIPRFT = WIPRFT / 2240. 
Oe =~——____ WRITE (6, 802) WTPRFT ee oe” ee 
034 WRITE (6,85) WPERIN 
= BL¥O0M = 0.0 | ee Saale 7 ; 
o> | AREAPT = GIRTH * THL * 12.0 
037 Wome | = 1, 2g ; et, ee a 
036 poeeoo J =e 1, ad 
039 MeeeszOO SLMOM = BLMOM G12, * THI * PTOATA(IsJ53) = _PTDATA C1,U54)™ 
040 Rory «= Od 
041 . POS OO LS lye 2o pga . 
042 BOSC On Jm=~ le 0 
043 ) ——s AA = 0.083333 * THL * PTDATA (1sJ93) - 
044 Cometee= 10) 2NE. 0) GO TO 501 
O46 BB CP= (THL#®*2)*((PTOATALTELs Ls LI-PTOATACE sJsl)I/PTOATAC Ts Jo 3))**2 & 
MC ReTDATACIcIG 192) - PTDATAII, J,2)) 332) ee 
047 | Gio Te 60C 


048 501 B38 = CTHIE*2)*C(PTDATACT sJElLs1) - PTOATA( Ts Je1))/PTDATA( 1s J,3))** 





i? © | - 143 - 
4 zi 
Poh 1446 * (PTOVIAL Ts JEL) 2) Pla 

1049 600 XMOMIN = G.08333*AA%*80 & XMOHIN & 12.* PTDATA(T, JeaeTulee toa 

Giga = 2 
1050 500 CONTI ‘ue | 
051 XMDLK = 2.0 * (((3LMO4%*2) - (AREAPT * XMOMIN)) / BL¥O™M) 
052 XMDLO = ((C(8LMON**2) - (AR EAPT#XMOMIN) ) /(BLMOM - 26.231247 
_— fe Ate i) = 62.0 
053 304 FORAAT ¢€'O SECTIUN MOODULUS--KEEL =',F205 7 tee FEET") 
054 305 FORMAT (0 SECTION MUDULUS--DECK =',F20.7," INCHES**2 FEET*) 
055 307 FURMAT ('0 MOMENT OF INERTIA 18',F20.7,°* INCHES#*2 FEET#*2*) 
055 | _ ZNAX = 3LH04 / AREAPT. 
057 XINER = XMDIK * ZNAX 
053 | We tel 6, 30 f XEN | | 
1059 306 FORMAT ('O NEUTRAL AXIS I1S',F20.7,"' FEET ABOVE BASE LINE‘) 
060 _— GOL FORMAT ('O BLMUM =",F20.7,' FT IN#*2!) 


_~ -1 twee - ee eye — A ee 8 a ee oe —_~ 


061 nee FORMAT €°O AKEAPT =',F20.7,%" IN=s 20) a 

ee 403 FURMAT ('O XMOMIN =",F20.7,' FT¥*2 IN**#2*) 

063 WRITE (6,4CL) BLMOM | 

Me —t—<(—s—SCS NR TE (Gy 402} ARE APT 

065 | WRITE (6,493) xMOMIN - . 
eee—“(;‘“‘;*—*:*:SCSARCTCTViE:s«OC.-GH 3H) «OZARK . 

067 WRITE (6, 304) XADLK - - : : : - 
meeSCCt—<“CT;C~C™C«SRRCTTTTE (6 2305) XMOLD 

669 GO TO 888 is 

eee 2? FOP . 

- a a Barmy! pee i 
. 

Me cee ee a , ee ee 
| 











Se ee 


Coleulsate: 


GIRTH, WEPRFT, 
and GIRX2 





SauGwlawe. 
BLMOM, AA, BB, 
and XMOLIN 






Cariowlare: 
AMDIK, XHDLD, 


ZNAX, and XIIER 


STOP 


FIGURE AIIIL 





Determine the plating area 
and midshin section 
eilieae ee 


Determine the required 
values to permit tne 
solution of the equa- 


Gion tor Alumna. 


Determine the net midsnin 
SCCELOM Characueri cules. 


SUDORDIUATS ? PROGRAM WISUOD PLOW CHART 





ZL. SUBORDINATE PROGRAM TSHAPS 


I. DESCRIPTION 


“Introduction 

Subordinate program TSHAPE calculates the structural 
Characteristics of wide flange sections Cul to am -scecl6n. 
For the purposes of calculating the maxkinum and mina mur 
moments of inertia and the cross-sectional area, iv is 
mecuned that tne fhange 1S cut Ont ae a Gio amwee (0 ae 


inches fron the web. 


Inputs . é 
Symbol Meaning 
SMAXI (I) Maximum moment of inertia of the. 


original member, abopt its 
felethmeral Gbediy, (lel 

SNINICI) Minimum moment of inertia of the 
Ori cia as about its 


neutral axis. eave 
SARBA(I) Cross—secolemal area of the aoa 
ginal Hemser. eG =) 
SFLGW(T) Flange width. (Inches) 
SFLGTH(I) Flange thickness. (Inches) 
SDEPTH(I) Web depth. (Inches) 
SWEBTH (TI) Web thickness. (Inches) 
SCOST(T) Acquisition cost. (Dollars/Foot 


lenztn) 





Cal Culaved sirens 





Symnpol lieanins 

bl tioment of the cut mencer about 
the cut flere. seer. 

SA Cross-sectional areca Oheeiemcus 
member. (iIn.°) 

Si Moment of inertia of the cut 
member ADOUL Ghee CUeeueenice. 
Ghia 

SMAXI (TL) Maximum Moment of Gueren owen. une 
cut oe ee GS ete ars 
axis Cine 

SMINI(I) Mininun moment Of toertiasen tne 


cut member 5, abous its neutral 
apes | Glinems 


SAREA(T) Cross-sectional ity One ocmon’ 
member. (In. 

SFLGW(TI) Flange width. (In — 

SFLGTH(I) Flange thickness. (Inches) 

SDEPTH(T) Web depth. (Inenes) 

SWEBTH(I) Web thickness. (Inches) 

ScosT(TI) Acgwiition cost. (Dollars/ 
rvot lencth) 

VoGc(I) Distance of the neutral axis 


from the cut flange. (Inches) 


Samole fnpue/ Cutout (Computer test run) 
Reranollee SiAXTI (1) 2 In. 
SHINI(1) 2.89 In.5 
SAR@A(1) 3.53 In. 
SFLGI(1) 4.00 ihe 
SFLGTH(1 ) 0.279 ae 
Soper rai?) 6-00 teh 
SWEBTH(1) Ome In. 
SCOSsT(1) 2400 Dollars, (oor 
Output:  SMAXI(1) Onc. In.,' 
SMINI(CL) 1.40 ine. 
SAREA(1) aoe is 
SFLGW(1) 4.00 hs 
SFLOinGy) 0.279 ibe 
SDEPTH(1L) 6.00 nie 
SWBBTH(1L) O228 fiat 
SCOST(1) 2-00 DOoLlase7. con 


VeGc(1) ae ies 








se ye 


Fundanental Hauations 
tig eS me ee 







O.5 x SDEPTHCL) 3 Sheen Gee 
0.5 x SPLGTH(I)S ~ 
(SFLGYI(1) = 1.25 = Svein 
SARA CL = DoE LCM aa. 
(SFLGI(I) - .25 - SWEBTH(T)) 


VcG(i) = 


Sle= O25 x SD=PTA(l) = SARZA (I) = 
O.5 x SFLOTH(I)< x (SFLGVCl eee ee oe 


w~ 
rs 
iI 


SAREACI) = SFLGTH(L) = (SFPLGI(1)e2> ec aerieee 


SI = SMAXI(I) + SAR@A(I) x (0.5 x SDEPTH(I))2 - 
0.0833 x (SFLGH(I) - .25 - SW=STH(I)) x_SFLGTH(I)3 
~ (SARZA(I) - SA) x (0.5 x SFLGTH(I))@ 


2. 
SMAXI(I) = MCG(T) x ((SA x SI) ~ SHE) 





Sil 
Sriii(l) = SMINIC(I) - 0.1667 = SELGrTs (Gm oe e- 
(SFLGI(I) ~ .25 - SWEBTH(I)))3 - 
(SARBACI) ~ SA) + (OL I25 9 eso SWEBTH(T) 
+ 0.25 x (SFLGI(I) - .25 - SWEBTH(I)))-. 
SAREA(E) = SAREA(I) - SPFLGTH(Z) x | 
(SFPLGW CL) ee aoe 
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M. SUBORDINATS SUBROUTINE COSTKL 


Pair ocucuLon 


DESCRIPTION 


Subordinate subroutine COSTKL is used to generate the 


total cost ver foot length of the keel structure. The 


methodology and values used are explained at length in the 


description of main program COSTDATA. 


Inputs 


Calculated items 


Output 


symbol 
CKLGIL 
CHGLINH 


nat abate 


FKTHCK 


heaning 

Acquisition cost of the keel lor- 
siuudinal. (Dolllars/Hoe 

The cost of one man-hour of work. 
CDGitias >) 

Thickness of the flanges of the 
keel longitudinal. (Inches) 


Meanine 


anteater eeeensenreenramiande 


oe 


Cost of cutting the keel flanges. 
(Dollars/Foot) 

Cost of welding tne keel. 
(Dollars/Foot) 


Meaning 


Mowe cost of the keel structure. 
(Dollars/Foot) 








Samole Invut/Outous 


Inout: 


Output: 


2a oe 
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(Computer test run) 


Cac 9.00 Dollars feos 
CHGMITH Lape Dollars/Hour 
FKTHCK 0.458 Inecnes 

CKEEL 27 250 Doldans/i eeu 


Fundamental Eauations 





Baebe Galler lation 


CCUIF = 0.2 x CHGIMNH 
CWELD = 2.2748 x CHGMIH 


(Refer to program listing end flow 
chart, following pases) 


CCUTF = 1.50 
CWELD = 17.06 
CKESL = 27.56 
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SUQROUTINEGE COSTKL (CKLGTLsFKTHCRs CHGMNUCoScan 














C GALCULATE THE TOTAL COST CONTRIBUTIONDOR THe Eom Cie TUR cn 
aa ie ee re 
e PE CUMGAMCULATE THe COST OF CUTTING (iumEE meas 
Se 
ecUTr = O0e2 * CHGMNH 
» ¢ ee a 
C BalCuWATE THE COST OFMWELDING THE SHAMEn GONG Gum ummm: 
ee 
CWELD = 202748 * CHGMNH 
ees ee _— _ ee _ 
G THE MAN HOUR CHARGES ALLOW FOR MAKE READY AND PUT AWAYs THE WELDING 


fee US TSE» THE CONTINUOUS JOB ALLOWANCE, WIRE BRUSHINGs ARC AIR» DYE 


C 
aC 
C 
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fe 


ES 





PENETRANTs AND STRIP HEATERe 





MeEGKEEL = CKLGTL + CCUTF # CWELD 


Pa een 
END 
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ie Oo775 7250 


mm a ee ee eee 





MEPCANCULATE THE TOTAL COST--ACQUISI*ION>s PREPARATIONS AND INSTAMUs amore 
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Calculate: 
CCUTF, CWELD, 
ane GLlocas 


RETURN 


Determine the cost of 
Une ech tomer,  ocu 
foot length. 
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